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