A146562 'Erratic' numbers in A064353 [Kolakoski (1,3)].
3, 6, 9, 15, 18, 21, 25, 29, 32, 35, 41, 44, 47, 51, 54, 57, 61, 64, 67, 73, 76, 79, 83, 87, 90, 93, 99, 102, 105, 109, 112, 115, 121, 124, 127, 131, 134, 137, 143, 146, 149, 153, 157, 160, 163, 169, 172, 175, 179, 182, 185, 189, 192, 195, 201, 204, 207, 211
Offset: 1
Keywords
Examples
A064353(3) is predicted to be 1 but is 3 so 3 is in the list.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
import Data.List (findIndices) a146562 n = a146562_list !! (n-1) a146562_list = map (+ 1) $ findIndices (/= 0) $ zipWith (-) a064353_list $ cycle [1, 3] -- Reinhard Zumkeller, Aug 03 2013
Comments