A067851 Numbers k such that prime(k) divides prime(k^2)-1.
2, 26, 170, 321
Offset: 1
Examples
Prime(26) = 101 divides prime(26^2)-1 = 5050 = 50*101, so 26 is a term of the sequence.
Crossrefs
Cf. A067852.
Programs
-
Mathematica
Do[If[Mod[Prime[n^2] - 1, Prime[n]] == 0, Print[n]], {n, 1, 10^4}]