A207432 Positions of primes in A066680, the badly sieved numbers.

1, 2, 3, 4, 6, 8, 9, 11, 12, 14, 16, 17, 18, 19, 21, 23, 24, 25, 27, 29, 30, 32, 34, 35, 36, 38, 39, 41, 42, 44, 46, 48, 49, 50, 52, 53, 55, 56, 58, 60, 63, 64, 66, 68, 70, 71, 73, 75, 76, 77, 79, 80, 81, 84, 85, 87, 89, 90, 93, 94, 95, 97, 98, 99, 101, 102

Offset: 1

Author

Reinhard Zumkeller, Feb 17 2012

Keywords

• nonn

Comments

A066680(a(n)) = A000040(n).

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for sequences generated by sieves

Crossrefs

Cf. A000040.

Programs

Haskell

import Data.List (elemIndex)
import Data.Maybe (fromJust)
a207432 n = (fromJust $ elemIndex (a000040 n) a066680_list) + 1