A039673 Twin Fibonacci-lucky numbers.
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
Offset: 1
Keywords
Programs
-
Maple
From R. J. Mathar, Oct 10 2010: (Start) 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)
Extensions
Corrected from a(25) on by R. J. Mathar, Oct 10 2010
Comments