OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 6 = 2*3 = (smallest prime in [1^2,2^2]) * (largest prime in [1^2,2^2]).
a(2) = 35 = 5*7 = (smallest prime in [2^2,3^2]) * (largest prime in [2^2,3^2]).
MAPLE
seq(nextprime(n^2)*prevprime((n+1)^2, n=1..100); # Robert Israel, Jan 26 2020
MATHEMATICA
Table[Prime[PrimePi[n^2] + 1]*Prime[PrimePi[(n + 1)^2]], {n, 1, 40}] (* Stefan Steinerberger, Nov 20 2007 *)
NextPrime[#[[1]]]NextPrime[#[[2]], -1]&/@Partition[Range[40]^2, 2, 1] (* Harvey P. Dale, Aug 27 2022 *)
PROG
(PARI) for(n=1, 33, print1(nextprime(n^2)*precprime((n+1)^2), ", ")) \\ Hugo Pfoertner, Jan 26 2020
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Nov 15 2007
EXTENSIONS
More terms from Stefan Steinerberger, Nov 20 2007
STATUS
approved