A050766 Primes occurring in A050765.

38431, 59333, 89753, 93683, 156007, 356441, 682141, 1226959, 1468387, 1648697, 2592043, 2995249, 3595589, 3933731, 5845309, 5967433, 8861059, 8953631, 9748537, 11351399, 12819329, 13227023, 13712551, 16193579, 18375053, 19294523, 21206117, 25259593, 28297559

Offset: 1

Author

Patrick De Geest, Sep 15 1999

Keywords

• nonn
• nice

Examples

			Prime 19294523 = composite 19294436 + sopf 2+2+7+7+7+7+7+7+41 = 19294436 + 87 = nextprime(19294436).
		

Links

• Donovan Johnson, Table of n, a(n) for n = 1..500
• C. Rivera, See also related puzzle

Crossrefs

Cf. A050765, A050703, A050710.

Programs

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 *)

Extensions

Offset corrected by Donovan Johnson, Oct 18 2013