OFFSET
1,1
COMMENTS
Conjecture: lim sup n ->infinity a(n)/n^2 exists = C, where 0<C<1. - Benoit Cloitre, May 23 2002
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
MATHEMATICA
Table[ s = 2; While[ Mod[s, n] + 2 - Boole[ PrimeQ[s - 1]] - Boole[ PrimeQ[s + 1]] > 0, s++]; s, {n, 1, 55}] (* Jean-François Alcover, Dec 08 2011, after Pari *)
With[{tpm=Mean/@Select[Partition[Prime[Range[1000]], 2, 1], #[[2]]-#[[1]] == 2&]}, Flatten[Table[Select[tpm, Divisible[#, n]&, 1], {n, 60}]]] (* Harvey P. Dale, Apr 12 2012 *)
PROG
(PARI) for(n=1, 100, s=2; while(s%n+2-isprime(s-1)-isprime(s+1)>0, s++); print1(s, ", "))
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Amarnath Murthy, May 22 2002
EXTENSIONS
More terms from Benoit Cloitre, May 23 2002
STATUS
approved