A395099 - OEIS

%I #12 Apr 14 2026 14:23:48

%S 17,53,71,233,251,431,521,1151,1223,1511,2141,2213,2411,3221,4211,

%T 11213,11321,11411,12113,13121,21221,31121,112121,113111,131111,

%U 311111,1111211

%N Zeroless primes having digit sum 8.

%p b:= proc(n, i, l) option remember; `if`(n=0, select(isprime,

%p       map(x-> parse(cat(x[])), combinat[permute](l))),

%p      `if`(i<1, [], [seq(b(n-i*j, i-1, [l[], i$j])[], j=0..n/i)]))

%p     end:

%p sort(b(8, 9, []))[];

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

%Y Intersection of A052382 and A062343.

%Y Row n=8 of A113625.

%Y Cf. A118703.

%K nonn,base,fini,full

%O 1,1

%A _Alois P. Heinz_, Apr 11 2026