A189822 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A189822

Positions of 1 in A189820; complement of A003278.

3, 6, 7, 8, 9, 12, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 30, 33, 34, 35, 36, 39, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 84

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

OFFSET

1,1

LINKS

G. C. Greubel, Table of n, a(n) for n = 1..10000

MATHEMATICA

a[1] = 0; h = 50;

Table[a[3 k - 2] = a[k], {k, 1, h}];

Table[a[3 k - 1] = a[k], {k, 1, h}];

Table[a[3 k] = 1, {k, 1, h}];

Flatten[Position[%%, 1]]

CROSSREFS