1,2
6 divides prime(6^2)-1 = 150, so 6 is a term of the sequence.
Select[Range[10^4], Mod[Prime[ #^2] - 1, # ] == 0 &]
Sequence in context: A004789 A027435 A014666 this_sequence A102025 A090127 A057910
Adjacent sequences: A067849 A067850 A067851 this_sequence A067853 A067854 A067855
nonn
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Feb 15 2002
Search completed in 0.002 seconds