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

Offset: 1

Author

Patrick De Geest, Apr 15 1998

Keywords

• nonn
• easy
• base

Links

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

Crossrefs

Cf. A007093, A032549, A032550. See also A032532 for explanation.

Programs

Mathematica

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

PARI

A007093(n) = if(n<=1,n,(10*A007093(n\7))+(n%7));
A032548(n) = (A007093(n)\n); \\ Antti Karttunen, Jan 01 2019

Formula

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

Extensions

Offset corrected by Antti Karttunen, Jan 01 2019