login
A080138
Least positive integer multiples of angle x such that their direction cosines form a unit vector: sum(k>0, cos(a(k)*x)^2)=1, where a(1)=1 and x=3.
5
1, 11, 12, 33, 100, 122, 144, 233, 344, 477, 588, 832, 943, 1187, 2008, 15853, 16563, 17273, 121621, 191068, 260515, 503757, 573204, 955340, 1337476, 1719612, 2101748, 3317603, 4464011, 4846147, 5228283, 5610419, 10647634, 16066985
OFFSET
1,2
PROG
(PARI) x=3; z=cos(x)^2; a=1; for(n=1, 35, b=a+1; while(z+cos(b*x)^2>1, b++); z=z+cos(b*x)^2; a=b; print1(b, ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jan 30 2003
EXTENSIONS
Corrected and extended with PARI program by Benoit Cloitre, Feb 04 2003
STATUS
approved