A124069
Fixed points for operation of repeatedly replacing a number with the sum of the eighth power of its digits.
Original entry on oeis.org
0, 1, 24678050, 24678051, 88593477
Offset: 1
24678050 = 2^8 + 4^8 + 6^8 + 7^8 + 8^8 + 0^8 + 5^8 + 0^8.
-
isok(n) = my(d = digits(n)); sum(k=1, #d, d[k]^8) == n; \\ Michel Marcus, Feb 21 2015
-
for(n=0,413979400,A210840(n)==n&&print1(n",")) \\ M. F. Hasler, Apr 12 2015
A123253
Sum of 7th powers of digits of n.
Original entry on oeis.org
0, 1, 128, 2187, 16384, 78125, 279936, 823543, 2097152, 4782969, 1, 2, 129, 2188, 16385, 78126, 279937, 823544, 2097153, 4782970, 128, 129, 256, 2315, 16512, 78253, 280064, 823671, 2097280, 4783097, 2187, 2188, 2315, 4374, 18571, 80312, 282123
Offset: 0
-
[0] cat [&+[d^7: d in Intseq(n)]: n in [1..40]]; // Bruno Berselli, Feb 01 2013
-
A123253 := proc(n)
add(d^7,d=convert(n,base,10)) ;
end proc: # R. J. Mathar, Jan 16 2013
-
Table[Sum[DigitCount[n][[i]] i^7, {i, 9}], {n, 0, 40}] (* Bruno Berselli, Feb 01 2013 *)
-
A123253(n)=sum(i=1,#n=digits(n),n[i]^7) \\ M. F. Hasler, Apr 12 2015
A355708
Irregular triangle read by rows in which row n lists the possible periods for the iterations of the map sum of n-th powers of digits.
Original entry on oeis.org
1, 1, 8, 1, 2, 3, 1, 2, 7, 1, 2, 4, 6, 10, 12, 22, 28, 1, 2, 3, 4, 10, 30, 1, 2, 3, 6, 12, 14, 21, 27, 30, 56, 92, 1, 25, 154, 1, 2, 3, 4, 8, 10, 19, 24, 28, 30, 80, 93, 1, 6, 7, 17, 81, 123
Offset: 1
Triangle begins:
1;
1, 8;
1, 2, 3;
1, 2, 7;
1, 2, 4, 6, 10, 12, 22, 28;
1, 2, 3, 4, 10, 30;
1, 2, 3, 6, 12, 14, 21, 27, 30, 56, 92;
1, 25, 154;
1, 2, 3, 4, 8, 10, 19, 24, 28, 30, 80, 93;
1, 6, 7, 17, 81, 123;
...
Showing 1-3 of 3 results.
Comments