A129745 Numbers k such that Lucas(4k)/7 is prime.
5, 17, 19, 41, 43, 71, 1511, 2339, 3469, 4787, 7211, 9781, 14431
Offset: 1
Crossrefs
Programs
-
Mathematica
a=7; b=47; Do[ c=7b-a; a=b; b=c; If[ PrimeQ[c/7], Print[n] ], {n, 3, 100}]
Extensions
a(7) - a(10) from Stefan Steinerberger, May 17 2007
a(11) from Max Alekseyev, Nov 25 2007
a(12) from Alexander Adamchuk, May 15 2010
a(13) from Michael S. Branicky, Aug 01 2024
Comments