A262564 - OEIS

%I #15 Jul 31 2021 20:24:45

%S 2,3,5,4,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,

%T 27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,

%U 50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75

%N A politician's answer to the question "What comes next after 2,3,5?".

%C The politician plans to legislate away the mistakes of the past and return to normalcy.

%H E. R. Berlekamp, <a href="/A257113/a257113.pdf">A contribution to mathematical psychometrics</a>, Unpublished Bell Labs Memorandum, Feb 08 1968 [Annotated scanned copy]

%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (2,-1).

%F G.f.: x*(-x^5 + 3*x^4 - 3*x^3 + x^2 - x + 2)/(x - 1)^2. - _Chai Wah Wu_, Nov 03 2016

%t CoefficientList[Series[(- x^5 + 3 x^4 - 3 x^3 + x^2 - x + 2)/(x - 1)^2, {x, 0, 75}], x] (* _Vincenzo Librandi_, Nov 04 2016 *)

%t LinearRecurrence[{2,-1},{2,3,5,4,6,7},80] (* _Harvey P. Dale_, Jul 31 2021 *)

%o (Haskell)

%o a262564 n = a262564_list !! (n-1)

%o a262564_list = [2, 3, 5, 4] ++ [6..]  -- _Reinhard Zumkeller_, Oct 20 2015

%Y Cf. A262565.

%K nonn

%O 1,1

%A _N. J. A. Sloane_, Oct 19 2015