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,2

Links

Table of n, a(n) for n=1..24.

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

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

Crossrefs

Cf. A085068, A085071, A085330.

Sequence in context: A030342 A273323 A061966 * A291347 A062220 A310328

Adjacent sequences: A085325 A085326 A085327 * A085329 A085330 A085331

Keyword

nonn,more

Author

N. J. A. Sloane, Aug 13 2003

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

Status

approved