A160244 A104449(n+1)+prime(n), sum of a Lucas and the prime sequence.
6, 8, 14, 21, 34, 50, 77, 116, 180, 283, 442, 702, 1117, 1784, 2864, 4611, 7434, 11994, 19375, 31312, 50622, 81869, 132422, 214218, 346565, 560698, 907168, 1467769, 2374836, 3842502, 6217243, 10059636, 16276758, 26336265, 42612896, 68949024
Offset: 1
Programs
-
UBASIC
10 'Lucas variations (change value of A in line 30 as appropriate) 20 P=1 30 A=2 40 B=1 50 C=A+B:print C;:R=nxtprm(P):print R;:P=R:print C+R 51 if C=prmdiv(C) then print C;"*":U=U+1 52 if C+R=prmdiv(C+R) then print C+R;"#":V=V+1 60 D=B+C:print D;:R=nxtprm(P):print R;:P=R:print D+R 61 if D=prmdiv(D) then print D;"*":U=U+1 62 if D+R=prmdiv(D+R) then print D+R;"#":V=V+1 63 print U;V 70 stop 80 A=C:B=D:goto 50
Extensions
Edited by R. J. Mathar, May 12 2009
Comments