%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