OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
FactorInteger[#[[2]]-#[[1]]][[-1, 1]]&/@Partition[Prime[Range[80]]^2, 2, 1] (* Harvey P. Dale, Jan 17 2016 *)
PROG
(PARI) a(n) = my(f=factor(prime(n+1)^2 - prime(n)^2)); f[#f~, 1]; \\ Michel Marcus, Nov 12 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 29 2002, Aug 05 2007
STATUS
approved