|
%I #14 Apr 05 2018 05:54:16
%S 1,3,6,11,14,16,19,22,24,27,32,35,37,40,45,48,50,53,56,58,61,66,69,71,
%T 74,77,79,82,84,87,90,92,95,100,103,105,108,111,113,116,121,124,126,
%U 129,134,137,139,142,145,147,150,155,158,160,163,166,168,171,173,176,179,181,184,189,192,194,197,200,202,205,210,213,215,218
%N Positions of 2 in A190436.
%C See A190436.
%H G. C. Greubel, <a href="/A190439/b190439.txt">Table of n, a(n) for n = 1..10000</a>
%t r = GoldenRatio; b = 3; c = 2;
%t f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
%t t = Table[f[n], {n, 1, 320}] (* A190436 *)
%t Flatten[Position[t, 0]] (* A190437 *)
%t Flatten[Position[t, 1]] (* A190438 *)
%t Flatten[Position[t, 2]] (* A190439 *)
%t Flatten[Position[t, 3]] (* A302253 *)
%Y Cf. A190436.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 10 2011
%E Typos in definition corrected by _Arkadiusz Wesolowski_, Jan 07 2012
|
