OFFSET
2,1
LINKS
Robert Israel, Table of n, a(n) for n = 2..10000
FORMULA
MAPLE
seq((ithprime(n+1)^2 - ithprime(n)^2)/8, n=2..100); # Robert Israel, Jan 22 2016
MATHEMATICA
Rest[Array[(Prime[# + 1]^2 - Prime[#]^2) / 8 &, 60]] (* Vincenzo Librandi, Jan 23 2016 *)
(#[[2]]-#[[1]])/8&/@Partition[Prime[Range[2, 60]]^2, 2, 1] (* Harvey P. Dale, Aug 01 2022 *)
PROG
(PARI) a(n) = (prime(n+1)^2 - prime(n)^2)/8; \\ Michel Marcus, Jan 22 2016
(Magma) [(NthPrime(n+1)^2-NthPrime(n)^2) div 8: n in [2..60]]; // Vincenzo Librandi, Jan 23 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, Jan 22 2016
STATUS
approved