|
| |
|
|
A049711
|
|
n-prevprime(n).
|
|
14
| |
|
|
1, 1, 2, 1, 2, 1, 2, 3, 4, 1, 2, 1, 2, 3, 4, 1, 2, 1, 2, 3, 4, 1, 2, 3, 4, 5, 6, 1, 2, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 1, 2, 1, 2, 3, 4, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6, 1, 2, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 1, 2, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 1, 2, 3, 4, 5, 6, 1, 2, 3, 4, 5, 6
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 3,3
|
|
|
COMMENTS
| All runs end in even numbers at a(p), new highs are found at A000101 and the increasing gap size is A005250. - Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 07 2001
|
|
|
MAPLE
| with(numtheory); A049711 := n-> n-prevprime(n);
|
|
|
MATHEMATICA
| PrevPrim[n_] := Block[ {k = n - 1}, While[ !PrimeQ[k], k-- ]; Return[k]]; Table[ n - PrevPrim[n], {n, 3, 100} ]
Array[#-NextPrime[#, -1]&, 100, 3] (* From Harvey P. Dale, Dec 07 2011 *)
|
|
|
CROSSREFS
| Cf. A049613, A049653, A049716, A049847.
Sequence in context: A161271 A160975 A175851 * A137293 A177803 A074641
Adjacent sequences: A049708 A049709 A049710 * A049712 A049713 A049714
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
| |
|
|
