OFFSET
1,1
COMMENTS
Subsequence of A007491. - Zak Seidov, Apr 30 2015
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
FORMULA
EXAMPLE
100th prime, 541 immediately follows 529, square of 9th prime.
MAPLE
with(numtheory): [seq(nextprime(ithprime(w)^2), w=1..100)];
MATHEMATICA
Array[NextPrime[Prime[#]^2] &, 41] (* Michael De Vlieger, Nov 02 2017 *)
PROG
(PARI) { for (n=1, 1000, write("b062772.txt", n, " ", nextprime(prime(n)^2)) ) } \\ Harry J. Smith, Aug 10 2009
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Labos Elemer, Jul 18 2001
STATUS
approved