A092909 Interpolate 0's between each pair of digits of n-th prime.

2, 3, 5, 7, 101, 103, 107, 109, 203, 209, 301, 307, 401, 403, 407, 503, 509, 601, 607, 701, 703, 709, 803, 809, 907, 10001, 10003, 10007, 10009, 10103, 10207, 10301, 10307, 10309, 10409, 10501, 10507, 10603, 10607, 10703, 10709, 10801, 10901, 10903, 10907, 10909

Offset

1,1

Links

Andrew Howroyd, Table of n, a(n) for n = 1..1000

Formula

a(n) = A051022(A000040(n)). - Andrew Howroyd, Feb 12 2020

Mathematica

Table[FromDigits[Riffle[IntegerDigits[p], 0]], {p, Prime[Range[50]]}] (* Harvey P. Dale, Aug 15 2021 *)

Prog

(PARI) a(n)={fromdigits(concat([[0, d] | d<-digits(prime(n))]))} \\ Andrew Howroyd, Feb 12 2020

Crossrefs

Cf. A051022, A092908.

Sequence in context: A318202 A076406 A171050 * A080437 A092908 A050784

Adjacent sequences: A092906 A092907 A092908 * A092910 A092911 A092912

Keyword

nonn,base

Author

Jorge Coveiro, Apr 15 2004

Extensions

Name clarified and terms a(31) and beyond from Andrew Howroyd, Feb 12 2020

Status

approved