OFFSET
1,1
COMMENTS
See A039672 for definition.
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)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected from a(25) on by R. J. Mathar, Oct 10 2010
STATUS
approved