|
%I #6 May 13 2019 10:20:12
%S 1,4,6,9,11,13,16,19,21,23,25,28,31,33,35,38,40,43,45,47,50,52,55,58,
%T 59,62,65,67,70,71,74,77,79,81,84,86,89,91,93,96,98,101,104,105,108,
%U 110,113,116,117,120,123,125,128,130,132,135,137,140,142,144,147,150,152,154,156,159,162,163,166,169,171,174,175,178,181,183,186,188,190,193,196,198,200,202
%N n+[nr/t]+[ns/t]; r=1, s=2^(1/3), t=2^(2/3).
%C See A189530.
%t (See A189530.)
%t Table[n+Floor[n/Surd[4,3]]+Floor[(n*Surd[2,3])/Surd[4,3]],{n,100}] (* _Harvey P. Dale_, May 13 2019 *)
%Y Cf. A189530, A189531.
%K nonn
%O 1,2
%A _Clark Kimberling_, Apr 23 2011
|
