A177495 a(n) is the least k such that the remainder when 100^k is divided by k is n.

3, 7, 97, 6, 19, 38, 31, 23, 13, 15, 89, 22, 29, 43, 17, 24, 83, 41, 19003, 580, 79, 42, 1903, 58, 35, 37, 73, 36, 71, 49, 999969, 56, 67, 66, 145, 76, 411, 578, 61, 60, 59, 494, 51, 262, 55, 158, 53, 52, 57, 398, 15673, 69, 1589, 9946, 65, 88, 20940211, 366, 391

Offset

1,1

Links

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

Mathematica

t = Table[0, {70}]; k = 1; While[k < 210000000, a = PowerMod[100, k, k]; If[a < 71 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]; t
Table[Module[{k=1}, While[PowerMod[100, k, k]!=n, k++]; k], {n, 60}] (* Harvey P. Dale, Jun 06 2018 *)

Crossrefs

Cf. A036236, A078457, A119678, A119679, A127816, A119715, A119714, A127817, A127818, A127819, A127820, A127821, A128154, A128155, A128156, A128157, A128158, A128159, A128160, A128361, A128362, A128363, A128364, A128365, A128366, A128367, A128368, A128369, A128370, A128371, A128372.

Cf. A128149, A128150, A128172.

Sequence in context: A111002 A042481 A307661 * A088419 A062592 A074349

Adjacent sequences: A177492 A177493 A177494 * A177496 A177497 A177498

Keyword

nonn

Author

Alexander Adamchuk, May 10 2010

Status

approved