A277399 Like 6-white numbers but with blocks of 6 starting at left.

0, 1, 100000, 1705330, 1818180, 1941030, 2046807, 2227770, 2285010, 2414880, 2598400, 2694600, 2727270, 2728270, 2758239, 2760940, 2857140, 2890810, 2979315, 3040660, 3085911, 3317050, 3541014, 3636460, 4543174

Offset

1,3

Links

Table of n, a(n) for n=1..25.

Example

1705330^6 = 24595213291709423201966052256969000000 and 245952 + 132917 + 094232 + 019660 + 522569 + 690000 + 00 = 1705330.

Maple

P:=proc(q, h) local a, b, c, d, n; print(0); for n from 1 to q do
a:=n^h; d:=ilog10(n^h)+1; c:=d-h*trunc(d/h); b:=0;
while a>0 do b:=b+(a mod 10^c); a:=trunc(a/10^c); c:=h; od;
if n=b then print(n); fi; od; end: P(10^15, 7);

Mathematica

Select[Range[0, 4544000], Total[FromDigits/@Partition[IntegerDigits[#^6], UpTo[6]]]==#&] (* Harvey P. Dale, Dec 25 2023 *)

Crossrefs

Cf. A037042-A037045, A274833, A274834, A277397, A277398, A277400.

Sequence in context: A033427 A027663 A168652 * A017177 A017273 A017513

Adjacent sequences: A277396 A277397 A277398 * A277400 A277401 A277402

Keyword

nonn,base,easy,fini,full

Author

Paolo P. Lava, Oct 13 2016

Status

approved