|
|
A078457
|
|
a(n) = least positive k such that the remainder when 3^k is divided by k is n.
|
|
47
|
|
|
1, 2, 2929, 5, 41459, 76, 21, 295, 2352527, 10, 963400369, 1162, 15, 68, 22082967607, 42, 144937, 217, 25, 1054, 1948397, 60, 14495, 266, 721, 28, 4343, 33, 193511, 52, 6884974839, 49, 1055, 48, 622699582951, 39806, 333, 44, 205, 70, 791, 460, 335, 725, 439889
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
a(n) > n. Numbers n such that a(n-1) = n are listed in A015949.
a(n) for which no value is currently known: n = 394, 494, 634, 730, 974, 986, 1000, ...
|
|
LINKS
|
|
|
MATHEMATICA
|
a = Table[0, {50}]; Do[b = PowerMod[3, n, n]; If[b < 51 && a[[b]] == 0, a[[b]] = n], {n, 1, 56*10^6}]; a
t = Table[0, {1000} ]; k = 1; While[ k < 200000000, a = PowerMod[3, k, k]; If[a < 1001 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++ ]; t
|
|
CROSSREFS
|
Cf. A015949, A036236, A119678, A119679, A127816, A119715, A119714, A127817, A127818, A127819, A127820, A127821.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(56), a(110), a(128), a(134), a(187), a(286), a(348), a(392), a(470), a(512), a(550), a(596), a(672), a(676), a(688), a(703), a(716), a(748), a(772), a(784), a(860), a(980) from Jan-Christoph Schlage-Puchta (jcp(AT)mathematik.uni-freiburg.de), May 26 2008
a(664), a(928) from Mark Forbes (m.g.forbes(AT)ieee.org), Oct 25 2009
|
|
STATUS
|
approved
|
|
|
|