|
|
A189683
|
|
Irregular pairs (p,2k) ordered by increasing k.
|
|
9
|
|
|
691, 12, 3617, 16, 43867, 18, 283, 20, 617, 20, 131, 22, 593, 22, 103, 24, 2294797, 24, 657931, 26, 9349, 28, 362903, 28, 1721, 30, 1001259881, 30, 37, 32, 683, 32, 305065927, 32, 151628697551, 34, 26315271553053477373, 36, 154210205991661, 38, 137616929, 40
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The subsequence of irregular primes p is A046753.
|
|
LINKS
|
|
|
EXAMPLE
|
The first few irregular pairs are (691,12), (3617,16), (43867,18), (283,20), (617,20), (131,22), (593,22), ...
|
|
MATHEMATICA
|
Flatten[Table[p = Select[First /@ FactorInteger[Abs[Numerator[BernoulliB[n]]]], # >= n+3 &]; Transpose[{p, Table[n, {Length[p]}]}], {n, 2, 70, 2}]] (* T. D. Noe, Apr 25 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|