A214653 Where A214551(n) and A214551(n+2) are coprime.

0, 1, 2, 3, 4, 5, 11, 12, 13, 14, 20, 21, 22, 23, 24, 25, 27, 29, 30, 31, 32, 34, 36, 38, 43, 44, 45, 46, 49, 50, 51, 54, 62, 63, 64, 66, 67, 69, 70, 71, 73, 74, 76, 77, 78, 79, 80, 81, 83, 85, 86, 87, 88, 89, 90, 92, 94, 95, 96, 99, 101, 103, 105, 107, 108

Offset: 1

Author

Reinhard Zumkeller, Jul 24 2012

Keywords

• nonn

Comments

A214323(a(n)) = 1.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Programs

Haskell

import Data.List (elemIndices)
a214653 n = a214653_list !! (n-1)
a214653_list = elemIndices 1 a214323_list