1,2

prime(3)+1 = 6, prime(3^2)+1 = 30, so 3 is a term of the sequence.

Select[Range[10^5], Mod[Prime[ #^2] + 1, Prime[ # ] + 1] == 0 &]

Adjacent sequences: A067845 A067846 A067847 this_sequence A067849 A067850 A067851

Sequence in context: A073997 A007118 A012572 this_sequence A139802 A063666 A006247

nonn

Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Feb 14 2002