login
Record values in A085068.
3

%I #18 Mar 03 2018 21:30:28

%S 1,3,9,15,17,18,24,27,28,30,40,41,44,47,48,50,51,52,53,56,57,60,64,67

%N Record values in A085068.

%H J. C. Lagarias and N. J. A. Sloane, Approximate squaring (<a href="http://neilsloane.com/doc/apsq.pdf">pdf</a>, <a href="http://neilsloane.com/doc/apsq.ps">ps</a>), Experimental Math., 13 (2004), 113-128.

%t f[n_] := Block[{c = 1, k = 4 n/3}, While[ ! IntegerQ@k, c++; k = 4 Ceiling@k/3]; c]; t = Table[0, {1000}]; Do[ a = f@n; If[a < 101 && t[[a]] == 0, t[[a]] = n; Print[{a, n}]], {n, 0, 21*10^8}] (* _Robert G. Wilson v_, May 28 2007 *)

%Y Cf. A085068, A085071, A085330.

%K nonn,more

%O 1,2

%A _N. J. A. Sloane_, Aug 13 2003

%E More terms from _Jason Earls_, Aug 14 2003

%E a(12)-a(16) from _Robert G. Wilson v_, May 28 2007

%E a(17)-a(24) from _Lars Blomberg_, Mar 03 2018