A124068 Fixed points for operation of repeatedly replacing a number with the sum of the seventh power of its digits.
0, 1, 1741725, 4210818, 9800817, 9926315, 14459929
Offset: 1
Examples
1741725 = 1^7 + 7^7 + 4^7 + 1^7 + 7^7 + 2^7 + 5^7.
Programs
-
PARI
isok(n) = my(d = digits(n)); sum(k=1, #d, d[k]^7) == n; \\ Michel Marcus, Feb 21 2015
-
PARI
for(n=0,41205040,A123253(n)==n&&print1(n",")) \\ M. F. Hasler, Apr 12 2015
Comments