OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..500
C. Rivera, See also related puzzle
EXAMPLE
Prime 19294523 = composite 19294436 + sopf 2+2+7+7+7+7+7+7+41 = 19294436 + 87 = nextprime(19294436).
MATHEMATICA
Reap[For[n = 4, n <= 2*10^7, n = If[PrimeQ[n+1], n+2, n+1], p = NextPrime[n]; If[n + Total[Times @@@ FactorInteger[n] ] == p, Print[p]; Sow[p]]]][[2, 1]] (* Jean-François Alcover, Oct 18 2013 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Patrick De Geest, Sep 15 1999
EXTENSIONS
Offset corrected by Donovan Johnson, Oct 18 2013
STATUS
approved