OFFSET
1,1
COMMENTS
The terms are odd prime numbers.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
1 + 2 Position[#, 2] &@ Table[k = 1; While[! PrimeQ[k n + 1], k++]; k, {n, 165}] // Flatten (* Michael De Vlieger, Jul 31 2017 *)
PROG
(PARI) lista(nn) = for (n=1, nn, if (isprime(p=2*n+1) && !isprime(n+1), print1(p, ", ")); ); \\ Michel Marcus, Aug 01 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Oct 27 2012
STATUS
approved