A323526 One and prime numbers whose prime index is a perfect square.

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

Links

Table of n, a(n) for n=1..46.

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

Crossrefs

Cf. A000290, A000720, A001248, A011757, A026478, A056239, A323520, A323521, A323525, A323527, A323528.

Sequence in context: A049002 A247197 A195629 * A011757 A121963 A041159

Adjacent sequences: A323523 A323524 A323525 * A323527 A323528 A323529

Keyword

nonn

Author

Gus Wiseman, Jan 17 2019

Status

approved