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,1

Links

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

Formula

Intersection of A000027&A000040 which share a digit.

Example

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A000027, A000040, A243355 (complement).

Sequence in context: A364562 A187040 A028784 * A155501 A271500 A271499

Adjacent sequences: A119390 A119391 A119392 * A119394 A119395 A119396

Keyword

nonn,base,less

Author

Robert G. Wilson v, Jul 25 2006

Status

approved