OFFSET
1,1
COMMENTS
See A190364.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Table[4*n + Floor[n*Sqrt[3/2]] + Floor[n*Sqrt[6]], {n, 1, 50}] (* G. C. Greubel, Jan 31 2018 *)
PROG
(PARI) for(n=1, 30, print1(4*n + floor(n*sqrt(3/2)) + floor(n*sqrt(6)), ", ")) \\ G. C. Greubel, Jan 31 2018
(Magma) [4*n + Floor(n*Sqrt(3/2)) + Floor(n*Sqrt(6)): n in [1..30]]; // G. C. Greubel, Jan 31 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 09 2011
STATUS
approved