1,1
Prime(26) = 101 divides prime(26^2)-1 = 5050 = 50*101, so 26 is a term of the sequence.
Do[If[Mod[Prime[n^2] - 1, Prime[n]] == 0, Print[n]], {n, 1, 10^4}]
Sequence in context: A120547 A132470 A153913 * A072415 A197468 A184354
Adjacent sequences: A067848 A067849 A067850 * A067852 A067853 A067854
nonn
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Feb 15 2002
