OFFSET
1,1
LINKS
Amita Malik and Armin Straub, Mathematica notebook for generating A133370 and A260793, A291275-A291284
Amita Malik and Armin Straub, Lists of all primes up to 10000 in A133370 and A260793, A291275-A291284, together with Mathematica code.
Amita Malik and Armin Straub, Divisibility properties of sporadic Apéry-like numbers, Research in Number Theory, 2016, 2:5.
MATHEMATICA
maxPrime = 977;
maxPi = PrimePi @ maxPrime;
okQ[p_] := AllTrue[Range[3 maxPi (* coeff 3 is empirical *)], GCD[HypergeometricPFQ[{# + 1, -#, -#}, {1, 1}, 1], p] == 1&];
Select[Prime[Range[maxPi]], okQ] (* Jean-François Alcover, Jan 13 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 21 2017
STATUS
approved