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
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Array[IntegerPart[FromDigits[#2]/#1] & @@ {#, IntegerDigits[#, 6]} &, 105] (* Michael De Vlieger, Oct 06 2019 *) -
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
Formula
a(n) = floor(A007092(n)/n). - Sean A. Irvine, Jun 22 2020
Comments