OFFSET
0,3
LINKS
D. H. Lehmer, Arithmetical periodicities of Bessel functions, Annals of Mathematics, 33 (1932): 143-150. The sequence is on page 148.
MAPLE
f:=proc(n) option remember; if n <= 1 then 1 else 2*f(n-2)+(4*n-3)*f(n-1); fi; end;
[seq(f(n), n=0..30)];
MATHEMATICA
RecurrenceTable[{a[0]==a[1]==1, a[n]==(4n-3)a[n-1]+2a[n-2]}, a, {n, 20}] (* Harvey P. Dale, Apr 07 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 09 2016
STATUS
approved