cp's OEIS Frontend

A323178 a(n) = 1 + 100*n^2 for n >= 0.

%I A323178 #21 Feb 18 2019 16:43:32
%S A323178 1,101,401,901,1601,2501,3601,4901,6401,8101,10001,12101,14401,16901,
%T A323178 19601,22501,25601,28901,32401,36101,40001,44101,48401,52901,57601,
%U A323178 62501,67601,72901,78401,84101,90001,96101,102401,108901
%N A323178 a(n) = 1 + 100*n^2 for n >= 0.
%C A323178 Terms of A261327 ending in 1 (01 for n > 0.)
%C A323178 a(n) mod 9 = period 9: repeat [1, 2, 5, 1, 8, 8, 1, 5, 2] = A275704(n+3).
%C A323178 (Analogous sequence: b(n) = 29 + 100*n*(n+1) = A261327(A017329) = 29, 229, 629, ... .)
%F A323178 a(n) = A261327(A008602(n)).
%F A323178 Recurrence: a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n > 2 with initial values a(0) = 1, a(1) = 101 and a(2) = 401.
%F A323178 From _Stefano Spezia_, Jan 06 2019: (Start)
%F A323178 O.g.f.: (-1 - 98*x - 101*x^2)/(-1 + x)^3.
%F A323178 E.g.f.: exp(x)*(1 + 100*x + 100*x^2).
%F A323178 (End)
%t A323178 a[n_] := 1 + 100*n^2 ; Array[a, 50, 0] (* or *)
%t A323178 CoefficientList[Series[(-1 - 98 x - 101 x^2)/(-1 + x)^3, {x, 0, 50}], x] (* or *)
%t A323178 CoefficientList[Series[E^x (1 + 100 x + 100 x^2), {x, 0, 50}], x]*Table[n!, {n, 0, 50}] (* _Stefano Spezia_, Jan 06 2019 *)
%Y A323178 Cf. A000290, A008602 (20*n), A261327, A275704.
%Y A323178 Subsequence of A017281.
%K A323178 nonn
%O A323178 0,2
%A A323178 _Paul Curtz_, Jan 06 2019
%E A323178 Corrected and extended (recurrence formula) by _Werner Schulte_, Feb 18 2019