OFFSET
0,3
COMMENTS
Also, right border of A246595 arranged as an irregular triangle.
a(n) are the Engel expansion of A070910. - Benedict W. J. Irwin, Dec 15 2016
LINKS
FORMULA
a(n) = A028310(n)^2.
a(n) = 3*a(n-1)-3*a(n-2)+a(n-3) for n>=4. - David Neil McGrath, May 23 2015
G.f.: (x^3-4*x^2+2*x-1)/(x-1)^3. - David Neil McGrath, May 25 2015
E.g.f.: 1 + exp(x)*x*(1 + x). - Stefano Spezia, Jan 30 2023
MATHEMATICA
Join[{1}, Range[50]^2] (* Alonso del Arte, Feb 23 2015 *)
Range[0, 50]^2 /. 0 -> 1 (* Robert G. Wilson v, Dec 15 2016 *)
PROG
(PARI) a(n)=max(n, 1)^2 \\ Charles R Greathouse IV, Dec 16 2016
CROSSREFS
KEYWORD
nonn,easy,mult
AUTHOR
Omar E. Pol, Feb 12 2015
EXTENSIONS
Keyword:mult added by Andrew Howroyd, Aug 06 2018
STATUS
approved