|
|
A182569
|
|
Primes that have two terms in their Zeckendorf representation.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes of the form Fibonacci(x)+Fibonacci(y), x-y>1.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
7 = 5+2. 11=8+3. 23=21+2. 29 =21+8.
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|