OFFSET
1,1
COMMENTS
See crossreferenced sequences for illustrations.
FORMULA
G.f., conjectured: (-2*x^14 + 4*x^13 + 2*x^12 + 2*x^11 + 2*x^10 + 2*x^9 + 2*x^8 + 4*x^7 + 2*x^6 + 2*x^5 + 2*x^4 + 2*x^3 + 2*x^2 + 4*x)/(x^14 - x^13 - x + 1). - Ralf Stephan, May 18 2014
Asymptotics from g.f.: a(n) ~ 30/13 * n. - Ralf Stephan, May 18 2014
PROG
(Small Basic)
For n =1 To 100
r6=n*math.Sin(30*Math.Pi/180)/(Math.Power(3, 0.5)/2)
r6a=math.Round(r6)
If r6-math.Floor(r6) > 0.5 Then
a=r6a*4
Else
a=2*(r6a*2+1)
EndIf
TextWindow.Write(a+", ")
EndFor
CROSSREFS
KEYWORD
nonn
AUTHOR
Kival Ngaokrajang, May 13 2014
STATUS
approved