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