|
|
A160244
|
|
A104449(n+1)+prime(n), sum of a Lucas and the prime sequence.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
A104449 could be called L31(n), the Lucas sequence starting with 3,1.
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|