OFFSET
1,2
COMMENTS
PROG
(PARI) A000217(n)= { return(n*(n+1)/2) ; } upto(first, osum, strict)= { local(trifirst, tstsu) ; trifirst=A000217(first-1) ; for(lst=first+1, first+100000000, tstsu=A000217(lst)-trifirst ; if(strict==1 && tstsu<= osum, next ; ) ; if( tstsu % osum == 0, return(lst) ; ) ; ) ; return(-1) ; } { a=1 ; first=2 ; for(n=2, 40, last=upto(first, a, 1) ; a=A000217(last)-A000217(first-1) ; print(a, ", ") ; first=last+1 ; ) ; - R. J. Mathar, May 06 2006
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Feb 05 2003
EXTENSIONS
More terms from R. J. Mathar, May 06 2006
Edited and extended by Max Alekseyev, May 08 2009
STATUS
approved