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

Author

Jorge Coveiro, Apr 15 2004

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A051022, A092908.

Programs

Mathematica

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

PARI

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

Formula

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

Extensions

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