A188069 Positions of 0 in A188068; complement of A188070.
1, 4, 8, 12, 15, 19, 23, 27, 30, 34, 38, 42, 45, 49, 53, 56, 60, 64, 68, 71, 75, 79, 83, 86, 90, 94, 98, 101, 105, 109, 112, 116, 120, 124, 127, 131, 135, 139, 142, 146, 150, 154, 157, 161, 165, 168, 172, 176, 180, 183, 187, 191, 195, 198, 202, 206, 209, 213, 217, 221, 224, 228, 232, 236, 239, 243, 247, 251, 254, 258, 262, 265, 269, 273, 277, 280, 284, 288
Offset: 1
Keywords
Programs
-
Haskell
a188069 n = a188069_list !! (n-1) a188069_list = filter ((== 2) . a007538) [1..] -- Reinhard Zumkeller, Feb 14 2012
-
Mathematica
(* See A188068. *)
Comments