A392375

Created: 4/20/2026 | Author: Vincenzo Manto , Apr 06 2026

Numbers k such that k is coprime to each of its digits and to the sum of its digits.

Sequence Chart

Data

1,11,13,17,19,23,29,31,37,41,43,47,49,53,59,61,67,71,73,79,83,89,91,97,113,119,121,127,131,137,139,143,149,151,157,161,163,167,169,173,179,181,187,191,193,197,199,211,221,223,227,229,233,239,241,251,253,257,259,263,269

Computational Implementations

PYTHON

from math import gcd
def ok(n):
    digs = list(map(int, str(n)))
    return all(gcd(n, d) == 1 for d in digs) and gcd(n, sum(digs)) == 1
print([k for k in range(333) if ok(k)]) # _Michael S. Branicky_, Apr 08 2026

CODE

select( {is_A392375(n)=!foreach(Set(concat(digits(n),sumdigits(n))),d,gcd(n,d)>1&&return)}, [1..333]) \\ _M. F. Hasler_, Apr 09 2026

Mathematica

q[k_] := With[{d = IntegerDigits[k]}, AllTrue[d, CoprimeQ[k, #] &] && CoprimeQ[Total[d], k]]; Select[Range[270], q] (* _Amiram Eldar_, Apr 13 2026 *)

Cross-References

See also OEIS entries: Intersection of A061116 and A339076.