proposed
approved
proposed
approved
editing
proposed
J. Buhler, R. Crandall, R. Ernvall, T. Metsankyla and M. A. Shokrollahi, Irregular Primes and Cyclotomic Invariants to 12 Million, J. Symbolic Computation 31, 2001, 89-96.
J. Buhler, R. Crandall, R. Ernvall, T. Metsankyla and M. A. Shokrollahi, <a href="http://dx.doi.org/10.1006/jsco.1999.1011">Irregular Primes and Cyclotomic Invariants to 12 Million</a>, J. Symbolic Computation 31, 2001, 89-96.
proposed
editing
editing
proposed
T. D. Noe, <a href="/A091887/b091887.txt">Table of n, a(n) for n=1..10000</a> (from Buhler et al.)
approved
editing
_T. D. Noe (noe(AT)sspectra.com), _, Feb 09 2004
T. D. Noe, <a href="/A091887/b091887.txt">Table of n, a(n) for n=1..10000</a> (from Buhler et al)
nonn,new
nonn
T. D. Noe, <a href="http://www.research.att.com/~njas/sequences/b091887.txt">Table of n, a(n) for n=1..10000</a> (from Buhler et al)
nonn,new
nonn
J. Buhler, R. Crandall, R. Ernvall, T. Metsankyla and M. A. Shokrollahi, Irregular Primes and Cyclotomic Invariants to 12 Million, J. Symbolic Computation 31, 2001, 89-96.
T. D. Noe, <a href="http://www.research.att.com/~njas/sequences/b091887.txt">Table of n, a(n) for n=1..10000</a> (from Buhler et al)
nonn,new
nonn
tp=Table[p=Prime[i]; cnt=0; k=1; While[2k<=p-3, If[Mod[Numerator[BernoulliB[2k]], p]==0, cnt++ ]; k++ ]; cnt, {i, 400}]; Select[tp, #>0&]
nonn,new
nonn