A083088 First column of table A083087.
1, 2, 4, 6, 7, 9, 11, 12, 14, 16, 18, 19, 21, 23, 24, 26, 28, 30, 31, 33, 35, 36, 38, 40, 41, 43, 45, 47, 48, 50, 52, 53, 55, 57, 59, 60, 62, 64, 65, 67, 69, 70, 72, 74, 76, 77, 79, 81, 82, 84, 86, 88, 89, 91, 93, 94, 96, 98, 100, 101, 103, 105, 106, 108, 110, 111, 113, 115
Offset: 0
Programs
-
Magma
z:=70; x:=1+Sqrt(2); [ Floor(n*x/(x-1))+1: n in [0..z] ]; // Klaus Brockhaus, Jan 04 2011
-
Mathematica
f[n_] := Floor[n/Sqrt@2 + n + 1]; Array[f, 68, 0]
Formula
a(n) = floor(n*x/(x-1)) + 1, n>=0, where x=1+sqrt(2).
a(n) = floor(n/sqrt(2)) + n + 1 = 1+n+A049472(n).
Extensions
This entry formerly contained an erroneous comment, which was deleted by N. J. A. Sloane, Jan 30 2008
Comments