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

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

Offset

1,2

Links

Vincenzo Manto, Table of n, a(n) for n = 1..9999

Mathematica

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

Prog

(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
(PARI) 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

Crossrefs

Intersection of A061116 and A339076.

Sequence in context: A063193 A384393 A056758 * A322273 A096489 A008364

Adjacent sequences: A392372 A392373 A392374 * A392376 A392377 A392378

Keyword

nonn,base

Author

Vincenzo Manto, Apr 06 2026

Status

approved