login
A323526
One and prime numbers whose prime index is a perfect square.
4
1, 2, 7, 23, 53, 97, 151, 227, 311, 419, 541, 661, 827, 1009, 1193, 1427, 1619, 1879, 2143, 2437, 2741, 3083, 3461, 3803, 4211, 4637, 5051, 5519, 6007, 6481, 6997, 7573, 8161, 8737, 9341, 9931, 10627, 11321, 12049, 12743, 13499, 14327, 15101, 15877, 16747, 17609
OFFSET
1,2
FORMULA
a(n) = A011757(n-1) for n > 1. - Alois P. Heinz, Jan 17 2019
MATHEMATICA
Array[Prime[#^2]&, 20]
PROG
(PARI) vector(50, n, if (n==1, 1, prime((n-1)^2))) \\ Michel Marcus, Feb 15 2019
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 17 2019
STATUS
approved