OFFSET
1,3
LINKS
EXAMPLE
13568 is a term because 13568^5 = 459810807237016813568 ends with 13568.
MATHEMATICA
Select[Range[0, 100000], PowerMod[#, 5, 10^IntegerLength[#]]==#&] (* Harvey P. Dale, Nov 04 2011 *)
PROG
(Sage)
def automorphic(maxdigits, pow, base=10) :
morphs = [[0]]
for i in range(maxdigits):
T=[d*base^i+x for x in morphs[-1] for d in range(base)]
morphs.append([x for x in T if x^pow % base^(i+1) == x])
return sorted(set(sum(morphs, [])))
# (call with pow=5 for this sequence), Eric M. Schmidt, Jul 29 2013
(Magma) [n : n in [0..3749] | Intseq(n^5)[1..#Intseq(n)] eq Intseq(n)]; // Arkadiusz Wesolowski, Nov 15 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Benoit Cloitre, Mar 08 2002
STATUS
approved