A383199 Number of positive integers with n digits in which adjacent digits differ by at most 4.

9, 65, 475, 3465, 25282, 184463, 1345887, 9819916, 71648478, 522764591, 3814216651, 27829445433, 203050351876, 1481504383412, 10809413614854, 78868091114176, 575440631436879, 4198553757680021, 30633661742154286, 223510591001999469, 1630787227154056312

Offset: 1

Author

Edwin Hermann, Apr 19 2025

Keywords

• nonn
• base
• easy

Links

• Index entries for linear recurrences with constant coefficients, signature (7,3,-6,-1,1).

Crossrefs

Cf. A235163, A383197, A383198, A383200, A383201, A383202.

Programs

Mathematica

Rest[CoefficientList[Series[-x*(x^4-x^3-7*x^2+2*x+9)/(x^5-x^4-6*x^3+3*x^2+7*x-1),{x,0,21}],x]] (* or *) LinearRecurrence[{7,3,-6,-1,1},{9,65,475,3465,25282},21] (* James C. McMahon, May 01 2025 *)

Formula

G.f.: -x*(x^4-x^3-7*x^2+2*x+9)/(x^5-x^4-6*x^3+3*x^2+7*x-1). - Alois P. Heinz, Apr 23 2025

Extensions

More terms from Alois P. Heinz, Apr 23 2025