cp's OEIS Frontend

A032548 Integer part of decimal 'base-7 looking' numbers divided by their actual base-7 values.

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