A182569 Primes that have two terms in their Zeckendorf representation.
7, 11, 23, 29, 37, 47, 97, 149, 157, 199, 241, 379, 521, 613, 631, 1021, 1741, 2207, 3571, 9349, 10949, 11933, 17713, 46381, 46457, 46601, 50549, 75169, 196439, 203183, 214129, 560597, 832129, 2178343, 3010349, 3531343, 14930441, 15444581, 16276621, 24157961
Offset: 1
Keywords
Examples
7 = 5+2. 11=8+3. 23=21+2. 29 =21+8.
Programs
-
Mathematica
nn = 40; f = Fibonacci[Range[nn]]; ps = {}; Do[ps = Union[ps, Select[f[[k]] + Delete[f, {{k-1}, {k}, {k+1}}], PrimeQ]], {k, 4, nn-1}]; ps (* T. D. Noe, May 08 2012 *)
Formula
Extensions
More terms from T. D. Noe, May 08 2012
Comments