|
| |
|
|
A103963
|
|
Record values in A040081.
|
|
6
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| A040081(659) not yet found. The index sequence of this one is 1, 13, 23, 43, 59, 88, 127, 148, 659.
800516 was found by Dave Linton in 2004.
|
|
|
LINKS
| Ray Ballinger and Wilfrid Keller, Riesel Problem
|
|
|
EXAMPLE
| A040081(1)=2; A040081(13)=3; A040081(659)>8192
|
|
|
MATHEMATICA
| kmax=8192; k = 0; n = 0; km = k; While[k < kmax, n++; k = 0; cp = n*(2^k) - 1; While[(!PrimeQ[cp]) && (k < kmax), k++; cp = n*(2^k) - 1]; If[k > km, km = k; Print[{n, km}]]]
|
|
|
CROSSREFS
| Cf. A040081.
Sequence in context: A084972 A141002 A006537 * A006706 A194079 A124390
Adjacent sequences: A103960 A103961 A103962 * A103964 A103965 A103966
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Lei Zhou (lzhou5(AT)emory.edu), Feb 24 2005
|
|
|
EXTENSIONS
| Edited by T. D. Noe (noe(AT)sspectra.com), Nov 15 2010
|
| |
|
|
