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,1

Comments

See A039672 for definition.

Links

Table of n, a(n) for n=1..57.

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: # R. J. Mathar, Oct 10 2010

Crossrefs

Cf. A039672 - Lower terms: A039693, upper terms: A039694, middle terms: A039695.

Sequence in context: A028289 A307872 A239510 * A097581 A090614 A171022

Adjacent sequences: A039670 A039671 A039672 * A039674 A039675 A039676

Keyword

nonn

Author

Felice Russo

Extensions

Corrected from a(25) on by R. J. Mathar, Oct 10 2010

Status

approved