

A231530


Real part of Prod_{k=1..n}(k+I).


8



1, 1, 1, 0, 10, 90, 730, 6160, 55900, 549900, 5864300, 67610400, 839594600, 11186357000, 159300557000, 2416003824000, 38894192662000, 662595375078000, 11911522255750000, 225382826562400000, 4477959179352100000, 93217812901913700000, 2029107997508660900000, 46099220630461596000000
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,5


COMMENTS

Extension of factorial(n) to factim(n,m) defined by the recurrence a(0)=1, a(n)=a(n1)*(n+m*I). Hence n! = factim(n,0), while the current sequence lists the real parts of factim(n,1). The imaginary parts are in A231531 and squares of magnitudes are in A101686.


LINKS

Stanislav Sykora, Table of n, a(n) for n = 0..440


EXAMPLE

factim(5,1) = 90+190*I. Hence a(n) = 90.


PROG

(PARI) Factim(nmax, m)={local(a, k); a=vector(nmax); a[1]=1+0*I;
for (k=2, nmax, a[k]=a[k1]*(k1+m*I); ); return(a); }
a = Factim(1000, 1); real(a)


CROSSREFS

Cf. A231531 (imaginary parts), A101686 (squares of magnitudes).
See A242651, A242652 for a pair of similar sequences.
Sequence in context: A038726 A009454 * A242652 A162756 A199940 A004985
Adjacent sequences: A231527 A231528 A231529 * A231531 A231532 A231533


KEYWORD

sign,easy


AUTHOR

Stanislav Sykora, Nov 10 2013


STATUS

approved



