A067851 Numbers k such that prime(k) divides prime(k^2)-1.

2, 26, 170, 321

Offset

1,1

Links

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

Example

Prime(26) = 101 divides prime(26^2)-1 = 5050 = 50*101, so 26 is a term of the sequence.

Mathematica

Do[If[Mod[Prime[n^2] - 1, Prime[n]] == 0, Print[n]], {n, 1, 10^4}]

Crossrefs

Cf. A067852.

Sequence in context: A132470 A153913 A246586 * A072415 A197468 A184354

Adjacent sequences: A067848 A067849 A067850 * A067852 A067853 A067854

Keyword

nonn,more

Author

Joseph L. Pe, Feb 15 2002

Status

approved