A162401 - OEIS

A162401

a(n) is the largest integer whose square, when represented in binary, is a substring within the binary representation of n.

1, 1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 2, 1, 1, 1, 4, 2, 3, 3, 2, 1, 1, 1, 2, 5, 1, 1, 2, 1, 1, 1, 4, 4, 2, 2, 6, 3, 3, 3, 2, 3, 1, 1, 2, 1, 1, 1, 4, 7, 5, 5, 2, 1, 1, 1, 2, 5, 1, 1, 2, 1, 1, 1, 8, 4, 4, 4, 2, 2, 2, 2, 6, 6, 3, 3, 3, 3, 3, 3, 4, 9, 3, 3, 2, 1, 1, 1, 2, 5, 1, 1, 2, 1, 1, 1, 4, 4, 7, 7

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,4

COMMENTS

A162400(n) = A162401(n)^2.

LINKS

Alois P. Heinz, Table of n, a(n) for n = 1..16384 (first 10000 terms from Robert G. Wilson v)

MATHEMATICA

f[n_] := Block[{k = Floor@ Sqrt@ n, s = ToString@ FromDigits@ IntegerDigits[n, 2]}, While[ StringPosition[s, ToString@ FromDigits@ IntegerDigits[k^2, 2]] == {}, k-- ]; k]; Array[f, 105] (* Robert G. Wilson v, Jul 16 2009 *)

CROSSREFS

Cf. A162400.

Sequence in context: A308993 A000188 A373833 * A324924 A301314 A241898

Adjacent sequences: A162398 A162399 A162400 * A162402 A162403 A162404

KEYWORD

base,nonn,look

AUTHOR

Leroy Quet, Jul 02 2009

EXTENSIONS

a(16) correction and more terms from Robert G. Wilson v, Jul 16 2009

STATUS

approved