%I #21 Aug 06 2024 21:17:22

%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