OFFSET
1,1
COMMENTS
Subsequence of A002998.
EXAMPLE
a(5)=209 is in the sequence because prime(5)=11 divides 2+0+9 and 209.
MATHEMATICA
Flatten[Table[Select[Prime[n] Range[10^8], Total[IntegerDigits[#]]==Prime[n]&, 1], {n, 1, 21}]]
PROG
(PARI) lista(nn) = {forprime(p=2, nn, k = 1; while(((q = k*p) && (sumdigits(q) % p)), k++); print1(q, ", "); ); } \\ Michel Marcus, Apr 14 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Apr 12 2015
STATUS
approved