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

Author

Paolo P. Lava, Jul 08 2016

Keywords

• nonn
• base
• fini
• full

Comments

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

Examples

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

Links

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

Crossrefs

Cf. A037042-A037045, A274834.

Programs

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 *)