|
|
A039673
|
|
Twin Fibonacci-lucky numbers.
|
|
3
|
|
|
2, 4, 5, 7, 11, 13, 23, 25, 38, 40, 50, 52, 56, 58, 59, 61, 74, 76, 86, 88, 101, 103, 104, 106, 122, 124, 131, 133, 149, 151, 164, 166, 173, 175, 185, 187, 200, 202, 236, 238, 248, 250, 254, 256, 266, 268, 275, 277, 281, 283, 308, 310, 329, 331, 344, 346, 380
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
A039672 := proc(nmax) L := [seq(i, i=1..nmax)] ; for itr from 1 do if itr+1 > nops(L) then return L; end if; str := op(itr, L)+op(itr+1, L) ; for i from floor(nops(L)/str) to 1 by -1 do L := subsop(str*i=NULL, L) ; end do: print(L) ; end do: end proc:
L := A039672(600) ; for i from 1 to nops(L)-1 do if op(i, L) = op(i+1, L)-2 then printf("%d, %d, ", op(i, L), op(i+1, L)) ; fi; end do: (End)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|