A077433 Number of separating zeros to represent A077431.

0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2

Offset

1,23

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Formula

a(n) = floor((floor(log_10(2*n^2))+1)/2) = floor(A077430(n)/2).

Example

a(256)=3, as A077431(256)=256000256 and A077432(256)=256000256^2=65536'131072'065536; two zeros would not be enough, as 25600256^2 = 65537'31072'65536.

Mathematica

A077433[n_] := Quotient[IntegerLength[2*n^2], 2];
Array[A077433, 100] (* Paolo Xausa, Nov 18 2025 *)

Crossrefs

Cf. A077430, A077431.

Sequence in context: A211669 A065687 A300403 * A065685 A084100 A329683

Adjacent sequences: A077430 A077431 A077432 * A077434 A077435 A077436

Keyword

nonn,base,easy

Author

Reinhard Zumkeller, Nov 05 2002

Status

approved