A395100 Zeroless primes having digit sum 10.

19, 37, 73, 127, 163, 181, 271, 433, 523, 541, 613, 631, 811, 1117, 1153, 1171, 1423, 1531, 1621, 2143, 2161, 2251, 2341, 2521, 3313, 3331, 3511, 4231, 5113, 6121, 6211, 11161, 11251, 12241, 12421, 12511, 13411, 14221, 15121, 16111, 21313, 22123, 23131, 23311

Offset

1,1

Links

Alois P. Heinz, Table of n, a(n) for n = 1..90

Maple

b:= proc(n, i, l) option remember; `if`(n=0, select(isprime,
      map(x-> parse(cat(x[])), combinat[permute](l))),
     `if`(i<1, [], [seq(b(n-i*j, i-1, [l[], i$j])[], j=0..n/i)]))
    end:
sort(b(10, 9, []))[];

Mathematica

Select[Prime[Range[2599]], ContainsNone[IntegerDigits[#], {0}]&&Total[IntegerDigits[#]]==10&] (* James C. McMahon, Apr 14 2026 *)

Crossrefs

Intersection of A052382 and A107579.

Intersection of A000040 and A179955.

Row n=10 of A113625.

Sequence in context: A061237 A158293 A107579 * A245381 A050528 A257074

Adjacent sequences: A395097 A395098 A395099 * A395101 A395102 A395103

Keyword

nonn,base,fini,full

Author

Alois P. Heinz, Apr 11 2026

Status

approved