A290825 Least base-3 digit of n.

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

Offset

0,3

Links

Robert Israel, Table of n, a(n) for n = 0..10000

Formula

a(n) = 2 if and only if n > 0 is in A024023.

a(n) = 0 if n is divisible by 3.

a(n) = min(A010872(n), a(A002264(n))).

Example

11 = 102_3 so a(11)=0.

Maple

seq(min(convert(n, base, 3)), n=0..100);

Mathematica

Table[Min[IntegerDigits[n, 3]], {n, 0, 120}] (* Harvey P. Dale, Dec 19 2017 *)

Prog

(PARI) a(n) = if (n==0, 0, vecmin(digits(n, 3))); \\ Michel Marcus, Aug 12 2017

Crossrefs

Cf. A002264, A010872, A024023, A037897, A190592.

Sequence in context: A117210 A060277 A333330 * A204688 A332038 A101672

Adjacent sequences: A290822 A290823 A290824 * A290826 A290827 A290828

Keyword

nonn,base

Author

Robert Israel, Aug 11 2017

Status

approved