|
| |
|
|
A112565
|
|
Main diagonal of square table A112564 of generalized Flavius Josephus sieves.
|
|
8
|
|
|
|
1, 2, 7, 28, 125, 546, 2527, 11096, 43633, 186130, 809831, 3423432, 14022373, 58574894, 250708291, 1038612976, 4353755777, 18333324162, 74663736859, 311293807040, 1286700247561, 4917768055222, 20458840039199, 83985256000824
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
COMMENTS
|
Appears to be a self-convolution of an integer sequence (A112567).
|
|
|
LINKS
|
Table of n, a(n) for n=0..23.
Index entries for sequences related to the Josephus Problem
|
|
|
FORMULA
|
a(n) = 1 + n*A112566(n) for n >= 0.
|
|
|
PROG
|
(PARI) {a(n)=local(A=n, B=0, C=0); if(n==0, 1, until(A==B, C=C+1; if(C%n==0, C=C+1); B=A; A=floor(A*(C+1)/C)); 1+A)}
Contribution from David Wasserman, Jun 25 2009: (Start)
(PARI) A002491(n) = local(a, b); a = n; b = n - 1; while (b > 1, a = b*ceil(a/b); b--); a;
T(n, k) = local(A = k, C = 1, q, d, x); if (n*k == 0, return(1)); if (n == 1, return(A002491(k + 1))); while (q = A\C, d = A%C; x = d\q + 1; A += x*(n - 1)*(A\C); C += x*n); 1 + A; (End)
|
|
|
CROSSREFS
|
Cf. A112564, A112566, A112567, A112568.
Sequence in context: A060379 A002931 A088702 * A227845 A118926 A127084
Adjacent sequences: A112562 A112563 A112564 * A112566 A112567 A112568
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Paul D. Hanna, Oct 14 2005
|
|
|
EXTENSIONS
|
More terms from David Wasserman, Jun 25 2009
|
|
|
STATUS
|
approved
|
| |
|
|
