login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A277399 Like 6-white numbers but with blocks of 6 starting at left. 2

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:55 EDT 2024. Contains 371241 sequences. (Running on oeis4.)