|
%I #18 Oct 06 2019 18:08:25
%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,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%U 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
%N Integer part of decimal 'base-7 looking' numbers divided by their actual base-7 values.
%H Antti Karttunen, <a href="/A032548/b032548.txt">Table of n, a(n) for n = 1..35000</a>
%F a(n) = floor(A007093(n)/n)). - _Antti Karttunen_, Jan 01 2019
%t Array[IntegerPart[FromDigits[#]/FromDigits[#, 7]] &@ IntegerDigits[#, 7] &, 100] (* _Michael De Vlieger_, Jan 03 2019 *)
%o (PARI)
%o A007093(n) = if(n<=1,n,(10*A007093(n\7))+(n%7));
%o A032548(n) = (A007093(n)\n); \\ _Antti Karttunen_, Jan 01 2019
%Y Cf. A007093, A032549, A032550. See also A032532 for explanation.
%K nonn,easy,base
%O 1,49
%A _Patrick De Geest_, Apr 15 1998
%E Offset corrected by _Antti Karttunen_, Jan 01 2019
|
