A098972 - OEIS

A098972

a(0) = 1; for n > 0, a(n) = 2*a(floor(n/2)) + 3*a(floor(n/3)).

1, 5, 13, 25, 41, 41, 89, 89, 121, 157, 157, 157, 301, 301, 301, 301, 365, 365, 581, 581, 581, 581, 581, 581, 965, 965, 965, 1073, 1073, 1073, 1073, 1073, 1201, 1201, 1201, 1201, 2065, 2065, 2065, 2065, 2065, 2065, 2065, 2065, 2065, 2065, 2065, 2065, 3025

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

OFFSET

0,2

COMMENTS

a(n) > a(n-1) iff n is a 3-smooth number.

LINKS

Amiram Eldar, Table of n, a(n) for n = 0..10000

FORMULA

sign(a(n+1)-a(n)) = A065333(n+1).

MATHEMATICA

a[0] = 1; a[n_] := a[n] = 2*a[Floor[n/2]] + 3*a[Floor[n/3]]; Array[a, 50, 0] (* Amiram Eldar, Jul 13 2023 *)

PROG