login
Like 4-white numbers but with blocks of 4 starting at left.
3

%I #7 Oct 19 2016 08:00:11

%S 0,1,1000,11110,14638,15628,17170,18217,19305,19999,21649,22320,25234,

%T 29041,30195,31428

%N Like 4-white numbers but with blocks of 4 starting at left.

%e 14638^4 = 45912080296849936 and 4591 + 2080+ 2968 + 4993 + 6 = 14638.

%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,4);

%Y Cf. A037042-A037045, A274833, A274834, A277398-A277400.

%K nonn,base,easy,fini,full

%O 1,3

%A _Paolo P. Lava_, Oct 13 2016