OFFSET
1,1
FORMULA
Conjecture: lim_{n->oo} a(n+1)/a(n) = 10.
MATHEMATICA
nmax=4; a={2}; For[k=3, k<=10^nmax-1, k++, If[AllTrue[a, Mod[DigitSum[k], #]!=0 &] && PrimeQ[k], AppendTo[a, k]]]; Table[Length[Select[a, IntegerLength[#]==i &]], {i, nmax}]
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Stefano Spezia, Jun 14 2026
STATUS
approved
