A178388 Concatenation of the first n primes written in base 3.

2, 210, 21012, 2101221, 2101221102, 2101221102111, 2101221102111122, 2101221102111122201, 2101221102111122201212, 21012211021111222012121002, 210122110211112220121210021011, 2101221102111122201212100210111101

Offset: 1

Author

Jonathan Vos Post, May 26 2010

Keywords

• base
• easy
• nonn

Examples

			a(4) = Concatenate[prime(1) base 3, prime(2) base 3, prime(3) base 3, prime(3) base 3] = Concatenate[2 base 3, 3 base 3, 5 base 3, 7 base 3] = Concatenate[2, 10, 12, 21] = 2101221.
		

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..174

Crossrefs

Cf. A000040, A001363, A004676, A007088, A007089, A019518, A031974, A100003, A154703.

Programs

Mathematica

Module[{nn=15,p3},p3=IntegerDigits[Prime[Range[nn]],3];Table[FromDigits[Flatten[ Take[p3,n]]],{n,nn}]] (* Harvey P. Dale, Aug 25 2022 *)

PARI

v = 0; for (n=1, 12, d = digits(prime(n), 3); v = v*10^#d + fromdigits(d); print1 (v ", ")) \\ Rémy Sigrist, Aug 07 2017

Extensions

Edited by N. J. A. Sloane, Jul 02 2017