OFFSET
1,1
COMMENTS
FORMULA
MAPLE
A161846 := proc(n) ( ithprime((n+1)^2)-ithprime(n^2))/ithprime(n) ; numer(%) ; end: seq(A161846(n), n=1..25) ; # R. J. Mathar, Jun 22 2009
MATHEMATICA
Table[(Prime[(n+1)^2]-Prime[n^2])/Prime[n], {n, 60}]//Numerator (* Harvey P. Dale, Oct 24 2017 *)
PROG
(PARI) a(n) = numerator((prime((n+1)^2) - prime(n^2))/prime(n)); \\ Michel Marcus, May 14 2020
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Daniel Tisdale, Jun 20 2009
EXTENSIONS
Extended by Ray Chandler, May 06 2010
Various sections edited by Petros Hadjicostas, May 13 2020
STATUS
approved