A397050 Prime numbers in A397046.

2, 3, 5, 7, 29, 47, 67, 83, 89, 137, 139, 157, 173, 179, 191, 193, 197, 199, 227, 229, 263, 269, 281, 283, 317, 337, 353, 359, 373, 379, 397, 409, 443, 449, 461, 463, 467, 487, 557, 571, 577, 593, 599, 607, 641, 643, 647, 661, 683, 719, 733, 739, 751, 757, 773, 797

Offset

1,1

Links

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

Index entries for sequences generated by sieves.

Mathematica

kmax=800; a={2}; For[k=3, k<=kmax, k++, If[AllTrue[a, Mod[DigitSum[k], #]!=0 &]&&PrimeQ[k], AppendTo[a, k]]]; a

Crossrefs

Cf. A397046, A397051.

Sequence in context: A091924 A358382 A069108 * A156604 A046864 A090712

Adjacent sequences: A397046 A397047 A397048 * A397051 A397052 A397053

Keyword

nonn,base,new

Author

Stefano Spezia, Jun 14 2026

Status

approved