1,1

Prime(4)+1 = 7+1 divides 4^2, so 4 is a term of the sequence.

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

Sequence in context: A100603 A018364 A054920 this_sequence A066974 A018373 A053550

Adjacent sequences: A062058 A062059 A062060 this_sequence A062062 A062063 A062064

nonn

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