OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = 0; Do[p = Prime[ n]; k = 1; While[ 2*k < p - 3 && Mod[ Numerator[ BernoulliB[ 2*k] ], p] != 0, k++ ]; If[ 2*k != p - 3, If[ a + 2 == p, Print[ a] ]; a = p ], {n, 3, 1500}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Mar 16 2001
EXTENSIONS
More terms from Robert G. Wilson v, Apr 01 2005
STATUS
approved