OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
GCD[#[[1]]+1, #[[2]]-1]&/@Partition[Prime[Range[90]], 2, 1] (* Harvey P. Dale, May 16 2021 *)
PROG
(PARI) { for (n=1, 1000, write("b066984.txt", n, " ", gcd(prime(n+1) - 1, prime(n) + 1)) ) } \\ Harry J. Smith, Apr 15 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 27 2002
STATUS
approved