A383197
Number of positive integers with n digits in which adjacent digits differ by at most 2.
Original entry on oeis.org
9, 41, 188, 867, 4010, 18574, 86096, 399225, 1851529, 8587802, 39833891, 184770640, 857073208, 3975623218, 18441391129, 85542653145, 396800342804, 1840608838251, 8537899488042, 39604141848678, 183708898915088, 852157340908409, 3952841397780937, 18335763176322738
Offset: 1
A383198
Number of positive integers with n digits in which adjacent digits differ by at most 3.
Original entry on oeis.org
9, 54, 328, 2000, 12202, 74458, 454366, 2772710, 16920138, 103253214, 630091042, 3845059318, 23464039746, 143186649814, 873780342786, 5332145758694, 32538816680050, 198564450196598, 1211717109125762, 7394366670845606, 45123286657530514, 275359755529253142
Offset: 1
-
LinearRecurrence[{7,-4,-10,6},{9, 54, 328, 2000},22] (* or *) Rest[CoefficientList[Series[(-x*(10*x^3-14*x^2-9*x+9)/(6*x^4-10*x^3-4*x^2+7*x-1)),{x,0,22}],x]] (* James C. McMahon, May 01 2025 *)
A383200
Number of positive integers with n digits in which adjacent digits differ by at most 5.
Original entry on oeis.org
9, 74, 610, 5020, 41317, 340050, 2798709, 23034169, 189577752, 1560278726, 12841536934, 105689495131, 869854553902, 7159149960981, 58921836913893, 484943447787706, 3991222267830858, 32848892512931768, 270355712339865433, 2225104276073281126, 18313239977617203949
Offset: 1
-
Rest[CoefficientList[Series[-x*(2*x^4-x^3-9*x^2+2*x+9)/((x+1)*(2*x^4-3*x^3-6*x^2+9*x-1)),{x,0,21}],x]] (* or *) LinearRecurrence[{8,3,-9,-1,2},{9,74,610,5020,41317},21] (* James C. McMahon, May 08 2025 *)
A383201
Number of positive integers with n digits in which adjacent digits differ by at most 6.
Original entry on oeis.org
9, 81, 724, 6472, 57851, 517112, 4622299, 41317257, 369321783, 3301249634, 29508817638, 263769909867, 2357755102376, 21075220921085, 188384678470177, 1683910560899833, 15051939468415328, 134544486519385896, 1202650255852445247, 10750107085908359068
Offset: 1
A383202
Number of positive integers with n digits in which adjacent digits differ by at most 7.
Original entry on oeis.org
9, 86, 813, 7693, 72786, 688661, 6515721, 61648078, 583279341, 5518660133, 52214449434, 494023669525, 4674173312097, 44224391459894, 418426247682381, 3958913146568317, 37457003208767394, 354397037125653845, 3353104871295311673, 31725187008033469918
Offset: 1
-
Rest[CoefficientList[Series[-x*(6*x^2-5*x-9)/(6*x^3-5*x^2-9*x+1),{x,0,20}],x]] (* or *) LinearRecurrence[{9,5,-6},{9,86,813},20] (* James C. McMahon, May 07 2025 *)
Showing 1-5 of 5 results.