A395099 Zeroless primes having digit sum 8.

17, 53, 71, 233, 251, 431, 521, 1151, 1223, 1511, 2141, 2213, 2411, 3221, 4211, 11213, 11321, 11411, 12113, 13121, 21221, 31121, 112121, 113111, 131111, 311111, 1111211

Offset

1,1

Links

Table of n, a(n) for n=1..27.

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(8, 9, []))[];

Mathematica

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

Crossrefs

Intersection of A052382 and A062343.

Row n=8 of A113625.

Cf. A118703.

Sequence in context: A061242 A062343 A176254 * A287311 A285225 A044119

Adjacent sequences: A395096 A395097 A395098 * A395100 A395101 A395102

Keyword

nonn,base,fini,full

Author

Alois P. Heinz, Apr 11 2026

Status

approved