%I A135014
%S A135014 2,6,342,8372,15006,32942,45156,170982,369056,3008490,3954132,644931420,
%T A135014 2009953056,12824996256
%N A135014 Intersection of A002378 and A135013.
%p A135014 A000265 := proc(n) local nshft ; if n mod 2 = 1 then RETURN(n); else 
               nshft := n ; while nshft mod 2 = 0 do nshft := nshft/2 ; od ; RETURN(nshft) 
               ; fi ; end: A135013 := proc(n) option remember ; if n = 1 then RETURN(1) 
               ; else RETURN( A135013(n-1)+A000265(n)) ; fi ; end: isA002378 := 
               proc(n) RETURN( issqr(1+4*n) ) ; end: for n from 1 do a135013 := 
               A135013(n) ; if isA002378(a135013) then printf("%d, ",a135013) ; 
               fi ; od: - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 11 2008
%Y A135014 Cf. A000918, A002378, A135013.
%Y A135014 Sequence in context: A007190 A164829 A028337 this_sequence A092024 A069261 
               A053608
%Y A135014 Adjacent sequences: A135011 A135012 A135013 this_sequence A135015 A135016 
               A135017
%K A135014 nonn,more
%O A135014 1,1
%A A135014 N. J. A. Sloane (njas(AT)research.att.com), Feb 10 2008
%E A135014 More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 11 2008