|
Search: id:A078515
|
|
| |
|
| 1, 7, 23, 30, 94, 219, 279, 773, 1856, 3724, 6999, 7000, 19205, 184163, 280103, 849876, 1870722, 3570761, 4114341, 11271072
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
N. J. A. Sloane, Transforms
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1}, While[p = Table[ Prime[i], {i, n, n + k}]; Length[ Union[Drop[p, 1] - Drop[p, -1]]] == k, k++ ]; k - 1]; a = Table[0, {50}]; Do[b = f[n]; If[ a[[b]] == 0, a[[b]] = n], {n, 1, 19000000}]
|
|
CROSSREFS
|
Gives RECORDS transform of A053597. The corresponding primes are in A079889. See also A079007.
Sequence in context: A019389 A056723 A080802 this_sequence A044449 A095087 A144517
Adjacent sequences: A078512 A078513 A078514 this_sequence A078516 A078517 A078518
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com), Jan 07 2003
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com) and Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jan 08 2003
|
|
|
Search completed in 0.002 seconds
|
