A253297 Primes p for which some multiple k*p > 2*p appears before p does in A098550.
5, 7, 13, 17, 23, 29, 41, 67, 83, 97
Offset: 1
Keywords
Programs
-
Haskell
a253297 n = a253297_list !! (n-1) a253297_list = f a098550_list where f (u:vs@(:v:)) = if a010051' v == 1 && div u v > 2 then v : f vs else f vs -- Reinhard Zumkeller, Dec 30 2014
Comments