OFFSET
1,3
COMMENTS
LINKS
T. D. Noe, Table of n, a(n) for n = 1..850
S. S. Wagstaff, Jr., Prime divisors of the Bernoulli and Euler numbers
Eric Weisstein's World of Mathematics, Euler Number
MATHEMATICA
ee=Table[Abs[EulerE[2i]], {i, 500}]; Table[p=Prime[n]; i=1; While[i<=p && Mod[ee[[i]], p]>0, i++ ]; If[i>p, 0, 2i], {n, PrimePi[500]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 25 2004
STATUS
approved