OFFSET
1,2
COMMENTS
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1244 (terms < 10^9)
MAPLE
isA000326 := proc(n) local di ; if issqr(1+24*n) or n =0 then di := 1+sqrt(1+24*n); if di mod 6 = 0 or n = 0 then true ; else false ; fi ; else false ; fi; end: lin := fscanf("b000959.txt", "%d %d") : while lin <> [] do a := op(2, lin) ; if isA000326( a ) then printf("%d, ", a) ; fi ; lin := fscanf("b000959.txt", "%d %d") ; od : # R. J. Mathar, May 13 2007
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, May 07 2007
EXTENSIONS
More terms from R. J. Mathar, May 13 2007
STATUS
approved