A085328 Record values in A085068.

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

Offset: 1

Author

N. J. A. Sloane, Aug 13 2003

Keywords

• nonn
• more

Links

• J. C. Lagarias and N. J. A. Sloane, Approximate squaring (pdf, ps), Experimental Math., 13 (2004), 113-128.

Crossrefs

Cf. A085068, A085071, A085330.

Programs

Mathematica

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 *)

Extensions

More terms from Jason Earls, Aug 14 2003

a(12)-a(16) from Robert G. Wilson v, May 28 2007

a(17)-a(24) from Lars Blomberg, Mar 03 2018