A119393 Numbers n such that the index of the prime and the prime share some digit.

7, 11, 13, 14, 18, 23, 29, 30, 31, 32, 33, 34, 37, 38, 41, 52, 54, 55, 56, 62, 63, 73, 74, 75, 78, 80, 81, 82, 83, 84, 92, 94, 95, 97, 100, 103, 105, 107, 109, 110, 112, 113, 114, 115, 116, 121, 125, 126, 127, 128, 129, 130, 131, 132, 133, 135, 136, 137, 138, 139, 140

Offset: 1

Author

Robert G. Wilson v, Jul 25 2006

Keywords

• nonn
• base
• less

Examples

			7 is a member since the seventh prime is 17 with the index and the prime sharing the digit 7.
		

Links

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

Crossrefs

Cf. A000027, A000040, A243355 (complement).

Programs

Haskell

import Data.List (intersect)
a119393 n = a119393_list !! (n-1)
a119393_list = filter
   (\x -> not $ null $ show x `intersect` (show $ a000040 x)) [1..]
-- Reinhard Zumkeller, Sep 14 2014

Mathematica

Select[Range@140, Intersection[IntegerDigits@#, IntegerDigits@ Prime@# ] != {} &]

Formula

Intersection of A000027&A000040 which share a digit.