|
|
A051702
|
|
Distance from n-th prime to closest prime.
|
|
19
|
|
|
1, 1, 2, 2, 2, 2, 2, 2, 4, 2, 2, 4, 2, 2, 4, 6, 2, 2, 4, 2, 2, 4, 4, 6, 4, 2, 2, 2, 2, 4, 4, 4, 2, 2, 2, 2, 6, 4, 4, 6, 2, 2, 2, 2, 2, 2, 12, 4, 2, 2, 4, 2, 2, 6, 6, 6, 2, 2, 4, 2, 2, 10, 4, 2, 2, 4, 6, 6, 2, 2, 4, 6, 6, 6, 4, 4, 6, 4, 4, 8, 2, 2, 2, 2, 4, 4, 6, 4, 2, 2, 4, 8, 4, 4, 4, 4, 6, 2, 2, 6, 6, 6, 6, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
Closest primes to 2,3,5,7,11 are 3,2,3,5,13.
|
|
MATHEMATICA
|
a[n_] := Min[(p = Prime[n]) - NextPrime[p, -1], NextPrime[p] - p]; Table[a[n], {n, 1, 104}] (* Jean-François Alcover, May 27 2013 *)
Join[{1}, Min[Differences[#]]&/@Partition[Prime[Range[110]], 3, 1]] (* Harvey P. Dale, Sep 23 2016 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|