A032545 Integer part of decimal 'base-6 looking' numbers divided by their actual base-6 values, rounded down.

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

Offset

1,36

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Formula

a(n) = floor(A007092(n)/n). - Sean A. Irvine, Jun 22 2020

Mathematica

Array[IntegerPart[FromDigits[#2]/#1] & @@ {#, IntegerDigits[#, 6]} &, 105] (* Michael De Vlieger, Oct 06 2019 *)

Prog

(PARI) for(n=1, 1e3, v=eval(Vec(Str(n))); if(vecmax(v)<6, print1(n\sum(i=1, #v, v[i]*6^(#v-i))", "))) \\ Charles R Greathouse IV, Apr 08 2012

Crossrefs

Cf. A007092, A032546, A032547.

See also A032532 for explanation.

Sequence in context: A044929 A000520 A044930 * A231560 A113679 A262438

Adjacent sequences: A032542 A032543 A032544 * A032546 A032547 A032548

Keyword

nonn,easy,base

Author

Patrick De Geest, Apr 15 1998

Status

approved