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,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

Cf. A050765, A050703, A050710.

Sequence in context: A254852 A203792 A013873 * A250712 A362217 A330427

Adjacent sequences: A050763 A050764 A050765 * A050767 A050768 A050769

Keyword

nonn,nice

Author

Patrick De Geest, Sep 15 1999

Extensions

Offset corrected by Donovan Johnson, Oct 18 2013

Status

approved