# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a032548 Showing 1-1 of 1 %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, Table of n, a(n) for n = 1..35000 %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 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE