A195125 a(n) = 2*n - floor(n*r), where r=Pi-3.

0, 2, 4, 6, 8, 10, 12, 14, 15, 17, 19, 21, 23, 25, 27, 28, 30, 32, 34, 36, 38, 40, 41, 43, 45, 47, 49, 51, 53, 54, 56, 58, 60, 62, 64, 66, 67, 69, 71, 73, 75, 77, 79, 80, 82, 84, 86, 88, 90, 92, 93, 95, 97, 99, 101, 103, 105, 106, 108, 110, 112, 114, 116, 118, 119

Offset

0,2

Links

Ivan Panchenko, Table of n, a(n) for n = 0..10000

Mathematica

f[n_] := 2 n - Floor[n (Pi - 3)]; Array[f, 65, 0] (* Ivan Panchenko, Nov 10 2013 *)

Prog

(Maxima) makelist(2*n - floor(n*(%pi - 3)), n, 0, 64); /* Ivan Panchenko, Nov 10 2013 */

Crossrefs

Sequence in context: A350803 A324847 A302696 * A228295 A184592 A247427

Adjacent sequences: A195122 A195123 A195124 * A195126 A195127 A195128

Keyword

nonn

Author

Clark Kimberling, Sep 09 2011

Status

approved