1,3

Table of n, a(n) for n=1..81.

bb={}; Do[Do[If[k==Mod[Prime[n+k], n], bb=Append[bb, k]; Goto[ne]]; Label[ne], {k, n-1}], {n, 150}]; bb

Sequence in context: A292140 A064943 A081478 * A194676 A151694 A298745

Adjacent sequences: A105338 A105339 A105340 * A105342 A105343 A105344

nonn

Zak Seidov, Apr 30 2005

approved