OFFSET
0,3
COMMENTS
LINKS
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