OFFSET
1,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Apéry Number.
MATHEMATICA
a=5; b=73; Do[ c=a; a=b; b=( (34*n^3 + 51*n^2 + 27*n +5)*b - n^3*c )/(n+1)^3; If[ PrimeQ[2n-1] && IntegerQ[a/(2n-1)], Print[2n-1] ], {n, 2, 10000} ].
PROG
(PARI) { is_A129828(p) = my(n, n1, n2, f, s=1); n1=n2=f=Mod(1, p); n=(p-3)\2; for(k=1, n, f*=k; n1*=n+k; n2*=n+1-k; s+=(n1*n2/f^2)^2); s==0; } \\ Max Alekseyev, Oct 27 2023
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Alexander Adamchuk, May 20 2007
EXTENSIONS
a(7) from Alexander Adamchuk, May 02 2010
STATUS
approved