|
|
A004976
|
|
a(n) = floor(n*phi^3), where phi=(1+sqrt(5))/2.
|
|
33
|
|
|
0, 4, 8, 12, 16, 21, 25, 29, 33, 38, 42, 46, 50, 55, 59, 63, 67, 72, 76, 80, 84, 88, 93, 97, 101, 105, 110, 114, 118, 122, 127, 131, 135, 139, 144, 148, 152, 156, 160, 165, 169, 173, 177, 182, 186, 190, 194, 199
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
r=5^(1/2); k=1;
t=Table[Floor[n*r+k*r]-Floor[n*r]-Floor[k*r], {n, 1, 220}] (* A188221 *)
Flatten[Position[t, 0] ] (* A188222 *)
Flatten[Position[t, 1] ] (* A004976 *)
|
|
PROG
|
(Python)
from math import isqrt
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|