%I #7 Dec 25 2023 17:52:45
%S 0,1,100000,1705330,1818180,1941030,2046807,2227770,2285010,2414880,
%T 2598400,2694600,2727270,2728270,2758239,2760940,2857140,2890810,
%U 2979315,3040660,3085911,3317050,3541014,3636460,4543174
%N Like 6-white numbers but with blocks of 6 starting at left.
%e 1705330^6 = 24595213291709423201966052256969000000 and 245952 + 132917 + 094232 + 019660 + 522569 + 690000 + 00 = 1705330.
%p P:=proc(q,h) local a,b,c,d,n; print(0); for n from 1 to q do
%p a:=n^h; d:=ilog10(n^h)+1; c:=d-h*trunc(d/h); b:=0;
%p while a>0 do b:=b+(a mod 10^c); a:=trunc(a/10^c); c:=h; od;
%p if n=b then print(n); fi; od; end: P(10^15,7);
%t Select[Range[0,4544000],Total[FromDigits/@Partition[IntegerDigits[#^6],UpTo[6]]]==#&] (* _Harvey P. Dale_, Dec 25 2023 *)
%Y Cf. A037042-A037045, A274833, A274834, A277397, A277398, A277400.
%K nonn,base,easy,fini,full
%O 1,3
%A _Paolo P. Lava_, Oct 13 2016
|