A037045 - OEIS

%I #17 Aug 22 2021 15:41:44

%S 0,1,27100,73440,95120,104336,139564,143901,144442,148780,155555,

%T 165311,172898,182655,195119,204876,204877,212463,216530,217341,

%U 227098,233873,234685,238752,239021,239563,244441,248779,251216,255554,260432

%N 5-white numbers: partition digits of n^5 into blocks of 5 starting at right; sum of these 5-digit numbers equals n.

%H Paolo P. Lava, <a href="/A037045/b037045.txt">Table of n, a(n) for n = 1..53</a>

%e 27100 is a 5-white number since 27100^5=14616603103510000000000 and 146+16603+10351+00000+00000=27100.

%t w5Q[n_]:=Module[{idn5=IntegerDigits[n^5],len},len=Length[idn5];Total[ FromDigits/@Partition[PadLeft[idn5,len+5-Mod[len,5]],5]]==n]; Select[ Range[0,300000],w5Q] (* _Harvey P. Dale_, Jul 27 2011 *)

%t Select[Range[0, 10^6], # == Plus@@ IntegerDigits[#^5, 10^5] &] (* _Giovanni Resta_, Jul 12 2016 *)

%t Select[Range[0,261000],Total[FromDigits/@(Reverse/@Partition[ Reverse[ IntegerDigits[ #^5]],UpTo[5]])]==#&] (* _Harvey P. Dale_, Aug 22 2021 *)

%Y Cf. A037043, A037044.

%K full,nonn,fini,easy,base,nice

%O 1,3

%A _Erich Friedman_

%E Offset set to 1 by _Paolo P. Lava_, Jul 12 2016