OFFSET
1,1
COMMENTS
Prime numbers in the sequence are also primes with digit sum = 14 (A106756). - Zak Seidov, May 21 2006
MATHEMATICA
ss={8, 14}; Do[If[15==Total@Flatten[IntegerDigits/@Divisors[n]], AppendTo[ss, n]], {n, 20, 2000}]; ss (* Zak Seidov, May 21 2006 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 16 2006
STATUS
approved