|
| |
|
|
A100802
|
|
a(n) = least k >= 0 such that (n+k)/2 is prime.
|
|
1
| |
|
|
4, 3, 2, 1, 0, 1, 0, 3, 2, 1, 0, 3, 2, 1, 0, 7, 6, 5, 4, 3, 2, 1, 0, 3, 2, 1, 0, 7, 6, 5, 4, 3, 2, 1, 0, 3, 2, 1, 0, 7, 6, 5, 4, 3, 2, 1, 0, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 3, 2, 1, 0, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 7, 6, 5, 4, 3, 2, 1, 0, 3, 2, 1, 0, 7, 6, 5, 4, 3, 2, 1, 0, 11, 10, 9, 8, 7, 6, 5
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| If a(n) = k is nonzero then a(n+1) = k-1. a(2p) = 0 for p prime.
|
|
|
MATHEMATICA
| a = {}; Do[k = 0; While[ ! PrimeQ[(n + k)/2], k++ ]; AppendTo[a, k]; , {n, 0, 120}]; a (Chandler)
|
|
|
CROSSREFS
| Cf. A100803.
Sequence in context: A067017 A067018 A200233 * A022960 A023446 A066440
Adjacent sequences: A100799 A100800 A100801 * A100803 A100804 A100805
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Dec 18 2004
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Jan 19 2005
|
| |
|
|
