login
Prime terms subtracted from Fibonacci terms (ignoring first two terms of Fibonacci sequence).
2

%I #14 Sep 08 2022 08:45:44

%S 0,0,0,1,2,8,17,36,66,115,202,340,569,944,1550,2531,4122,6704,10879,

%T 17640,28584,46289,74942,121304,196321,317710,514126,831933,1346160,

%U 2178196,3524451,5702756,9227328,14930213,24157668,39088018,63245829,102333992

%N Prime terms subtracted from Fibonacci terms (ignoring first two terms of Fibonacci sequence).

%C Superimpose Fibonacci sequence over the prime sequence (ignoring first two Fibonacci terms); subtract the prime term from the Fibonacci term.

%H Vincenzo Librandi, <a href="/A160189/b160189.txt">Table of n, a(n) for n = 1..1000</a>

%F Line up Fibonacci sequence above the prime sequence so that the 2,3,5, terms are one above the other. Then subtract the prime terms from the Fibonacci.

%e a(6)=8 because prime term 13 subtracted from Fibonacci term 21 = 8.

%t Table[Fibonacci[2 + n] - Prime[n], {n, 40}] (* _Harvey P. Dale_, Sep 05 2015 *)

%o (UBASIC) 10 'Fibo Fib-Prm 20 P=1:A=1:B=1:Q=Q+1 30 C=A+B:E=nxtprm(P):print C-E;:P=E 40 D=B+C:E=nxtprm(P):print D-E;:P=E 50 Q=Q+1 60 A=C:B=D:if Q<40 then 30 ' _Enoch Haga_, May 05 2009

%o (Magma) [Fibonacci(n+2) - NthPrime(n): n in [1..40]]; // _Vincenzo Librandi_, May 20 2016

%Y Cf. A004399.

%K easy,nonn

%O 1,5

%A _Enoch Haga_, May 04 2009; corrected May 05 2009