A188034 - OEIS

A188034

[nr]-[nr-kr]-[kr], where r=(1+sqrt(5))/2, k=12, [ ]=floor.

0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

COMMENTS

See A188014.

LINKS

Table of n, a(n) for n=1..133.

FORMULA

a(n)=[nr]-[nr-12r]-[12r], where r=(1+sqrt(5))/2.

MATHEMATICA

r=(1+5^(1/2))/2; k=12;

t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}] (*A188034*)

Flatten[Position[t, 0]] (*A188035*)