|
1, 4, 5, 6, 10, 11, 12, 18, 19, 21, 30, 31, 33, 57, 58, 61, 62, 63, 66, 67, 68, 72, 73, 75, 81, 82, 84, 96, 97, 99, 153, 154, 157, 158, 159, 163, 164, 165, 170, 171, 173, 181, 182, 184, 201, 202, 204, 205, 206, 209, 210, 211, 215, 216, 217, 223, 224, 226
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Sum[Floor[1/FractionalPart[k*Sqrt[7]]], {k, 1, n}], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)
|
|
PROG
|
(Magma) a:=Sqrt(7); [&+[Floor(1/(k*a-Floor(k*a))):k in [1..n]]:n in [1..60]]; // Marius A. Burtea, Jul 16 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|