login
Numbers not of form n + sum of digits of n^3.
0

%I #8 Jul 19 2012 11:33:48

%S 1,3,4,5,6,7,8,9,18,20,21,22,23,24,25,26,29,37,38,43,45,46,48,49,51,

%T 57,62,65,68,72,73,75,76,78,79,87,90,92,93,94,95,98,100,106,115,117,

%U 121,123,126,127,128,129,133,134,139,142,145,146,147,150,153,156,158,160

%N Numbers not of form n + sum of digits of n^3.

%t With[{nn=160},Select[Complement[Range[nn],#+Total[ IntegerDigits[ #^3]]&/@Range[nn]],#<=nn&]] (* _Harvey P. Dale_, Jul 19 2012 *)

%Y Cf. A003052, A051374, A051373, A051408-A051414.

%K nonn,base,easy,less

%O 1,2

%A Miklos SZABO (mike(AT)ludens.elte.hu)