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,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));
A032548(n) = (A007093(n)\n); \\ Antti Karttunen, Jan 01 2019

Crossrefs

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

Sequence in context: A086137 A085976 A171624 * A030597 A030599 A237413

Adjacent sequences: A032545 A032546 A032547 * A032549 A032550 A032551

Keyword

nonn,easy,base

Author

Patrick De Geest, Apr 15 1998

Extensions

Offset corrected by Antti Karttunen, Jan 01 2019

Status

approved