reviewed
approved
Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
reviewed
approved
proposed
reviewed
editing
proposed
t = Table[0, {10000} ]; k = 1; While[ k < 4000000000, a = PowerMod[20, k, k]; If[a < 10001 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]; t [From _(* _Robert G. Wilson v_, Aug 04 2009] *)
Copied more More terms copied from a-file _by _Hagen von Eitzen_, Oct 22 2009
approved
editing
Copied more terms from a-file _Hagen von Eitzen (math(AT)von-eitzen.de), _, Oct 22 2009
_Alexander Adamchuk (alex(AT)kolmogorov.com), _, Feb 16 2007
t = Table[0, {10000} ]; k = 1; While[ k < 4000000000, a = PowerMod[20, k, k]; If[a < 10001 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]; t [From _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Aug 04 2009]
Robert G. Wilson v, <a href="/A128160/a128160.txt">Table of n, a(n) for n = 1..10000 with -1 for large entries where a(n) has not yet been found</a>
hard,nonn,new
19, 3, 17, 6, 15, 7, 13, 9, 11, 18, 7989, 92, 973, 33, 611, 24, 2661, 382, 559, 21, 96641237093, 42, 1887, 94, 155, 27, 60403, 36, 7971, 74, 1172954777, 46, 2470227509, 122, 45, 116, 1837, 362, 779, 60, 469, 358, 1275143, 51, 55, 118, 723, 49
Robert G. Wilson v, <a href="a128160.txt">Table of n, a(n) for n = 1..10000 with -1 for large entries where a(n) has not yet been found</a>
t = Table[0, {10000} ]; k = 1; While[ k < 4000000000, a = PowerMod[20, k, k]; If[a < 10001 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]; t [From Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 04 2009]
hard,more,nonn,new
Copied more terms from a-file Hagen von Eitzen (math(AT)von-eitzen.de), Oct 22 2009
a(n) = least k such that the remainder when 20^k is divided by k is n.
19, 3, 17, 6, 15, 7, 13, 9, 11, 18, 7989, 92, 973, 33, 611, 24, 2661, 382, 559, 21
1,1
hard,more,nonn
Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 16 2007
approved