OFFSET
1,5
COMMENTS
7+-10->primes;but 7-10=-3,so,term #4(for number 7) is 0, 11+-8->primes, 13+-10->primes, 17+-12->primes, 19+-22->primes;but 19-22=-3,so,term #8(for number 19)is 0, 23+-18->primes,..
MATHEMATICA
f[n_]:=Module[{a=1}, While[ !PrimeQ[n-a]||!PrimeQ[n+a], a++ ]; r[n, ++a]]; r[n_, k_]:=Module[{a=k}, While[ !PrimeQ[n-a]||!PrimeQ[n+a], a++ ]; If[a>n, 0, a]]; Table[f[Prime[n]], {n, 1, 5!}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 26 2010
STATUS
approved