

A119714


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


46



7, 3, 5, 6, 39, 58, 7342733, 9, 36196439, 18, 501, 26, 13607, 249, 119, 20, 33, 25, 866401, 22, 533, 35, 185, 50, 196673, 27, 1843, 36, 69, 34, 551, 55, 3773365, 110, 159, 116, 355, 237, 8401, 52, 471, 81815, 85, 261, 11783479, 3258, 93, 92, 1885511821439
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..49.
Robert G. Wilson v, Table of n, a(n) for n = 1..10000 with 1 for those entries where a(n) has not yet been found


MATHEMATICA

Do[k = 1; While[PowerMod[8, k, k] != n, k++ ]; Print[k], {n, 48}]
t = Table[0, {10000}]; k = 1; lst = {}; While[k < 4300000000, a = PowerMod[8, k, k]; If[ a<10001 && t[[a]]==0, t[[a]]=k; Print[{a, k}]]; k++ ]; t


CROSSREFS

Cf. A036236, A078457, A119678, A119679, A127816, A119715, A127817, A127818, A127819, A127820, A127821.
Sequence in context: A155987 A200279 A213085 * A154889 A135002 A175452
Adjacent sequences: A119711 A119712 A119713 * A119715 A119716 A119717


KEYWORD

hard,nonn


AUTHOR

Ryan Propper, Jun 12 2006


EXTENSIONS

a(49) <= 122302226302391 from Max Alekseyev, Feb 04 2007
a(49) <= 1885511821439 from Joe K. Crump (joecr(AT)carolina.rr.com), Feb 10 2007
I extended the Mathematica coding to reflect the new search limits as posted in the b text file Robert G. Wilson v, Jul 17 2009
Value of a(49) as conjectured by J. K. Crump verified by Hagen von Eitzen, Jul 24 2009
a(61) = 1802190094793 = 11 * 59 * 17839 * 155663. [From Hagen von Eitzen, Jul 28 2009]


STATUS

approved



