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

Links

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

Example

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.

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 *)

Prog

(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

Crossrefs

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

Sequence in context: A157479 A355904 A092700 * A056065 A317978 A050445

Adjacent sequences: A178385 A178386 A178387 * A178389 A178390 A178391

Keyword

base,easy,nonn

Author

Jonathan Vos Post, May 26 2010

Extensions

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

Status

approved