OFFSET
1,1
FORMULA
Superimpose Fibonacci sequence over prime sequence (omitting first two Fibonacci terms -- line up on 2,3,5). Then multiply Fibonacci by prime term.
EXAMPLE
a(1),a(2),a(3)=4,9,25 because the first three terms of the Fibonacci (>1) and prime sequences are the same.
PROG
(UBASIC) 10 'Fibo A004399 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
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, May 04 2009
STATUS
approved