[go: up one dir, main page]

login
A277399
Like 6-white numbers but with blocks of 6 starting at left.
2
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
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 *)
KEYWORD
nonn,base,easy,fini,full
AUTHOR
Paolo P. Lava, Oct 13 2016
STATUS
approved