OFFSET
1,1
COMMENTS
See Schulte et al. (2014) for the precise definition of Type I primes.
LINKS
Amita Malik and Armin Straub, Divisibility properties of sporadic Apéry-like numbers, Research in Number Theory, 2016, 2:5
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
A. Schulte, S. VanSchalkwyk, A. Yang, On the divisibility and valuations of the Franel numbers, in MSRI-UP Research Reports, 2014.
A. Schulte, S. VanSchalkwyk, A. Yang, On the divisibility and valuations of the Franel numbers, Examples of Outstanding Student Posters, MAA.
MATHEMATICA
maxPrime = 1051;
maxPi = PrimePi @ maxPrime;
okQ[p_] := AllTrue[Range[3 maxPi (* coeff 3 is empirical *)], GCD[HypergeometricPFQ[{-#, -#, -#}, {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 05 2015
EXTENSIONS
Edited by N. J. A. Sloane, Aug 22 2017
STATUS
approved