[go: up one dir, main page]

login
A248913
A248614(n+1) - A248614(n).
1
1, 1, 2, 2, 4, 2, 4, 2, 2, 2, 6, 2, 6, 4, 2, 2, 2, 2, 4, 6, 2, 6, 4, 2, 6, 2, 2, 2, 4, 2, 2, 4, 4, 2, 4, 2, 2, 2, 4, 4, 6, 4, 2, 4, 2, 2, 4, 4, 2, 6, 6, 2, 2, 6, 2, 2, 2, 2, 10, 2, 4, 2, 2, 4, 4, 2, 2, 4, 4, 2, 4, 2, 2, 2, 2, 4, 2, 6, 4, 2, 4, 4, 2, 2, 4, 2
OFFSET
0,3
COMMENTS
From Bernoulli numbers A027642.
The first different numbers of a(n), i.e., 1, 2, 4, 6, 10, ... = A248614(1, 2, 3, 4, 5, ...) are at rank 0, 2, 4, 10, 58, ... .
PROG
(PARI) lista() = {vbden = readvec("c:/gp/bfiles/b027642.txt"); vredu = readvec("c:/gp/bfiles/b090126.txt"); vrank = []; for (i=1, #vredu, val = vredu[i]; k = 1; while(vbden[k] != val, k++); vrank = concat(vrank, k-1); ); for (i=2, #vrank, print1(vrank[i] - vrank[i-1], ", "); ); } \\ Michel Marcus, Nov 08 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Curtz, Oct 16 2014
EXTENSIONS
More terms from Michel Marcus, Nov 08 2014
STATUS
approved