|
%I #24 Jun 26 2020 03:58:09
%S 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,
%T 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,
%U 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
%N Integer part of decimal 'base-6 looking' numbers divided by their actual base-6 values, rounded down.
%H Charles R Greathouse IV, <a href="/A032545/b032545.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = floor(A007092(n)/n). - _Sean A. Irvine_, Jun 22 2020
%t Array[IntegerPart[FromDigits[#2]/#1] & @@ {#, IntegerDigits[#, 6]} &, 105] (* _Michael De Vlieger_, Oct 06 2019 *)
%o (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
%Y Cf. A007092, A032546, A032547.
%Y See also A032532 for explanation.
%K nonn,easy,base
%O 1,36
%A _Patrick De Geest_, Apr 15 1998
|
