1,2

There is no further term up to 10^9.

Do[If[Mod[(PowerMod[5, n, n]-2), n]==0, Print[n]], {n, 1000000000}]

Cf. A123062.

Adjacent sequences: A124243 A124244 A124245 this_sequence A124247 A124248 A124249

Sequence in context: A141440 A012569 A078258 this_sequence A037118 A085531 A130614

more,nonn

Farideh Firoozbakht (mymontain(AT)yahoo.com), Nov 19 2006