A073034 Take A000040, omit commas: 23571113171923..., select 1-digit primes.

2, 3, 5, 7, 3, 7, 2, 3, 2, 3, 3, 7, 3, 7, 5, 3, 5, 7, 7, 7, 3, 7, 3, 7, 3, 7, 3, 2, 7, 3, 3, 7, 3, 5, 5, 7, 3, 7, 7, 3, 7, 3, 7, 2, 2, 2, 3, 2, 2, 7, 2, 2, 2, 3, 3, 2, 3, 2, 2, 5, 2, 5, 7, 2, 3, 2, 2

Offset

1,1

Links

Table of n, a(n) for n=1..67.

Example

In the sequence 2357111317192329... (primes without delimiters) one-digit primes are 2,3,5,7,3,7,2,3,2...

Mathematica

p200=Flatten[IntegerDigits[Prime[Range[200]]]]; n=4; (* n-digit primes!*) pn=Partition[p200, n, 1]; ln=Length[pn]; tab=Table[Sum[10^(n-k)*pn[[i, k]], {k, n}], {i, ln}]; Select[tab, PrimeQ]

Prog

(Haskell)
a073034 n = a073034_list !! (n-1)
a073034_list = filter (`elem` [2, 3, 5, 7]) a033308_list
-- Reinhard Zumkeller, Mar 11 2014

Crossrefs

Cf. A010051, A033308.

Sequence in context: A039706 A156208 A239695 * A239037 A126050 A163821

Adjacent sequences: A073031 A073032 A073033 * A073035 A073036 A073037

Keyword

easy,nonn,base

Author

Zak Seidov, Aug 22 2002

Status

approved