OFFSET
1,1
LINKS
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 6571
EXAMPLE
2+3+5+7+11==13 (mod 15) and so 15 has this property.
MATHEMATICA
Reap[Module[{c = 0}, For[n = 4, n <= 10^6, n++, If[PrimeQ[n - 1], c += NextPrime[n - 1, -1]]; If[Mod[c, n] == NextPrime[n, -1], Sow[n]]]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jake Foster, Sep 29 2011
STATUS
approved