A032548 - OEIS

A032548

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

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, 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, 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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,49

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..35000

FORMULA

a(n) = floor(A007093(n)/n). - Antti Karttunen, Jan 01 2019

MATHEMATICA

Array[IntegerPart[FromDigits[#]/FromDigits[#, 7]] &@ IntegerDigits[#, 7] &, 100] (* Michael De Vlieger, Jan 03 2019 *)

PROG

(PARI)

A007093(n) = if(n<=1, n, (10*A007093(n\7))+(n%7));