A371672 a(n) = floor(log_phi(n)) with phi = A001622.

0, 1, 2, 2, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9

Offset

1,3

Links

Table of n, a(n) for n=1..105.

Mathematica

Table[IntegerPart[Log[n]/Log[GoldenRatio]], {n, 1, 130}]

Crossrefs

Cf. A000195, A000523, A001622, A004216, A362692.

Sequence in context: A057142 A320837 A098388 * A157792 A171896 A341167

Adjacent sequences: A371669 A371670 A371671 * A371673 A371674 A371675

Keyword

nonn

Author

Aleksandar V. Petojevic, Apr 02 2024

Status

approved