|
Search: id:A110364
|
|
|
| A110364 |
|
Beginning with 2, prime numbers such that successive differences are distinct Fibonacci numbers. |
|
+0
2
|
|
| 2, 3, 5, 13, 47, 191, 46559, 8944394323838023, 8945942332593943, 407305795913026496164667897, 407305795913026497299571067, 407305795913026497299571677
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
with(combinat): F:={seq(fibonacci(k), k=1..500)}: a[1]:=2: for m from 2 to 7 do p:=proc(n) if member(ithprime(n)-a[m-1], F)=true then ithprime(n) else fi end: a[m]:=[seq(p(n), n=1..5000)][1]: F:=F minus {a[m]-a[m-1]}: od: seq(a[m], m=1..7); (Deutsch)
|
|
MATHEMATICA
|
s = 2; l = {2}; Print[s]; Do[m = 1; While[MemberQ[l, m] || !PrimeQ[s + Fibonacci[m]], m++ ]; AppendTo[l, m]; s += Fibonacci[m]; Print[s], {n, 100}] - Ryan Propper (rpropper(AT)stanford.edu), Jul 21 2006
|
|
CROSSREFS
|
Cf. A110363.
Sequence in context: A042445 A048634 A012899 this_sequence A111288 A064526 A103594
Adjacent sequences: A110361 A110362 A110363 this_sequence A110365 A110366 A110367
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jul 23 2005
|
|
EXTENSIONS
|
2 more terms from Emeric Deutsch (deutsch(AT)duke.poly.edu), Jul 28 2005
More terms from Ryan Propper (rpropper(AT)stanford.edu), Jul 21 2006
|
|
|
Search completed in 0.002 seconds
|
