OFFSET
1,2
COMMENTS
These numbers might be called automorphic powers because the sets s(n) are called automorphic numbers. It appears that all numbers of the form 1 + 5^i are here. In fact, these appear to produce the only even numbers here. The set s(4) equals s(2). The set s(7) equals s(3). The set s(9) does not differ from s(5) until k = 10443. The set s(17) does not differ from s(9) until k = 108307. The sequence also has 126, 201, 251, 501, and 626, but there may be missing numbers.
Entries a(17)-a(49) have been tentatively obtained by comparing the terms < 10^30 in the sets s(n), for 2 <= n <= 10001. - Giovanni Resta, Jul 30 2013
FORMULA
Conjecture: a(n+1) = A003592(n) + 1. - Eric M. Schmidt, Jul 30 2013
MATHEMATICA
ts = {}; t = {}; Do[s = Select[Range[11000000], PowerMod[#, n, 10^IntegerLength[#]] == # &]; If[! MemberQ[ts, s], Print[n]; AppendTo[ts, s]; AppendTo[t, n]], {n, 2, 101}]; t = Join[{1}, t]
CROSSREFS
KEYWORD
nonn,hard,more,base
AUTHOR
T. D. Noe, Jul 29 2013
EXTENSIONS
a(17)-a(49) from Giovanni Resta, Jul 30 2013
STATUS
approved