A190772 Positions of 1 in A190770.

2, 3, 6, 9, 13, 16, 20, 23, 26, 30, 33, 37, 40, 43, 44, 47, 50, 54, 57, 60, 61, 64, 67, 71, 74, 78, 81, 84, 85, 88, 91, 95, 98, 101, 102, 105, 108, 112, 115, 119, 122, 125, 129, 132, 136, 139, 142, 143, 146, 149, 153, 156, 159, 160, 163, 166, 170, 173, 177, 180, 183, 184, 187, 190, 194, 197, 200, 201, 204, 207, 211, 214, 218, 221, 224, 225, 228, 231, 235, 238, 241, 242

Offset

1,1

Comments

See A190770.

Links

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

Mathematica

r = Sqrt[1/2]; b = 3; c = 1;
f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
t = Table[f[n], {n, 1, 300}] (* A190770 *)
Flatten[Position[t, 1]]      (* A190772 *)

Crossrefs

Cf. A190770.

Sequence in context: A096845 A285084 A248187 * A130673 A374702 A306777

Adjacent sequences: A190769 A190770 A190771 * A190773 A190774 A190775

Keyword

nonn

Author

Clark Kimberling, May 19 2011

Extensions

a(76)=225 inserted by Georg Fischer, Aug 27 2021

Status

approved