OFFSET
1,1
LINKS
MATHEMATICA
t = Table[0, {10000}]; k = 1; While[k < 4000000000, a = PowerMod[22, k, k]; If[a < 10001 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]; t (* Robert G. Wilson v, Jun 26 2009 *)
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Alexander Adamchuk, Feb 27 2007
EXTENSIONS
a(15) - a(40) from Robert G. Wilson v, Jun 26 2009
a(41) - a(49) from Robert G. Wilson v, Jun 27 2009
STATUS
approved