A274833 6-white numbers: partition digits of n^6 into blocks of 6 starting at right; sum of these 6-digit numbers equals n.

0, 1, 1208494, 1358344, 1415583, 1538460, 1734265, 1773226, 1818180, 1994707, 2155140, 2187108, 2208493, 2215486, 2272725, 2272726, 2311687, 2318680, 2351350, 2356641, 2358343, 2363634, 2390311, 2402596, 2420874, 2449252, 2454544, 2459835, 2481220, 2500498, 2533168

Offset

1,3

Comments

Three pairs of consecutive terms: 2272725 and 2272726; 2999997 and 2999998; 3272724 and 3272725.

Links

Paolo P. Lava, Table of n, a(n) for n = 1..104

Example

1208494^6 = 3115064124992224583219040254156270656 and 3 + 115064 + 124992 + 224583 + 219040 + 254156 + 270656 = 1208494.

Maple

P:=proc(q, h) local a, b, n;
for n from 0 to q do a:=n^h; b:=0; while a>0 do b:=b+(a mod 10^h); a:=trunc(a/10^h); od;
if n=b then print(n); fi; od; end: P(10^6, 6);

Mathematica

k = 6; Select[Range[0, 10^7], Function[n, Total[FromDigits /@ Partition[PadLeft[#, Length@ # + k - Mod[Length@ #, k]], k]] == n &@ IntegerDigits[n^k]]] (* Michael De Vlieger, Jul 08 2016, after Harvey P. Dale at A037045 *)

Crossrefs

Cf. A037042-A037045, A274834.

Sequence in context: A102336 A234479 A251166 * A206042 A092696 A203627

Adjacent sequences: A274830 A274831 A274832 * A274834 A274835 A274836

Keyword

nonn,base,fini,full

Author

Paolo P. Lava, Jul 08 2016

Status

approved