OFFSET
1,6
LINKS
FORMULA
MATHEMATICA
With[{max = 10^12}, SortBy[Flatten[Table[{i, j}, {i, 0, Log[6, max]}, {j, 0, Log[8, max/6^i]}], 1], 6^#[[1]] * 8^#[[2]] &][[;; , 2]]] (* Amiram Eldar, Jul 09 2025 *)
PROG
(Python)
from sympy import integer_log, multiplicity
from oeis_sequences.OEISsequences import bisection
def A025674(n):
def f(x): return n+x-sum(integer_log(x>>3*i, 6)[0]+1 for i in range((x.bit_length()+2)//3))
return ((~(m:=bisection(f, n, n))&m-1).bit_length()-multiplicity(3, m))//3 # Chai Wah Wu, Aug 18 2026
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved