OFFSET
1,1
COMMENTS
LINKS
Cino Hilliard, Pointer primes [broken link]
EXAMPLE
The digits of 11411 add up to 8. The product of the digits is 4. So 11411+8+4 = 11423, the next prime after 11411. So 11411 is in the sequence.
MATHEMATICA
zpQ[n_]:=Module[{idn=IntegerDigits[n]}, FreeQ[idn, 0]&&NextPrime[n] == n+ Total[ idn]+Times@@idn]; Select[Prime[Range[11*10^7]], zpQ] (* Harvey P. Dale, Jan 14 2016 *)
PROG
(Other) The link has the Gcc/Gmp program that was used to generate this sequence.
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Cino Hilliard, Mar 03 2009
STATUS
approved