|
MAPLE
|
A000043 := proc(n) op(n, [2, 3, 5, 7, 13, 17, 19, 31, 61, 89, 107, 127, 521, 607, 1279, 2203, 2281, 3217, 4253, 4423, 9689, 9941, 11213]) ; end: A061652 := proc(n) 2^(A000043(n)-1) ; end: A134710 := proc(n) A061652(n)/2^n ; end: seq(A134710(n), n=1..14) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 07 2008
|