|
Search: id:A070316
|
|
|
| A070316 |
|
Numbers n such that nextprime(n^2)-n^2 (n>=1) sets a new record. |
|
+0
3
|
|
| 1, 3, 5, 11, 18, 23, 42, 63, 69, 102, 128, 143, 226, 254, 349, 370, 590, 757, 833, 873, 1110, 1165, 5018, 14908, 49495, 87598, 106359, 185179, 269697, 558269, 1070246, 1673629, 4292936, 43957056, 148793437, 982920306, 1569443693, 556758439
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Charles R Greathouse IV Dec 29 2007, Table of n, a(n) for n = 1..45
Charles R Greathouse IV, Home Page [Listed in lieu of email address]
|
|
EXAMPLE
|
nextprime(63^2) - 63^2 = 3989 - 3969 = 20, giving the terms 63 in the present sequence and 20 in A070317.
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; d = 0; Do[m = n; a = NextPrim[n^2] - n^2; If[a > d, d = a; Print[n]], {n, 1, 10^8}]
|
|
CROSSREFS
|
Positions of record values in A053000 for n >= 1. Cf. A070317.
Sequence in context: A090952 A128949 A057652 this_sequence A023597 A162891 A045957
Adjacent sequences: A070313 A070314 A070315 this_sequence A070317 A070318 A070319
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Donald S McDonald (don.mcdonald(AT)paradise.net.nz), May 11 2002
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), May 11 2002
More terms from Ralf Stephan (ralf(AT)ark.in-berlin.de), Oct 14 2002
Further terms from Charles R Greathouse IV Jun 16 2007
|
|
|
Search completed in 0.002 seconds
|
