|
%I #5 May 22 2013 18:48:37
%S 3,6,7,14,15,19,20,21,22,23,24,26,34,35,43,44,45,46,47,48,53,54,55,56,
%T 57,58,59,60,61,62,63,77,78,79,80,91,92,93,94,95,96,97,98,99,106,107,
%U 108,109,110,111,112,113,114,115,116,117,118,119,120,122,123,124,140
%N Numbers n such that the sum of the decimal portions of the square root and cube root of n is greater than 1.
%e 18 is not the sequence because .242641+.620741=.863382, which is < 1.
%e 19 is in the sequence because .358899+.668402=1.027301, which is > 1.
%t Select[Range[150],Total[FractionalPart/@{Sqrt[#],Surd[#,3]}]>1&] (* _Harvey P. Dale_, May 22 2013 *)
%K easy,nonn,base
%O 1,1
%A _Gil Broussard_, Nov 17 2004
|
