login
A178388
Concatenation of the first n primes written in base 3.
1
2, 210, 21012, 2101221, 2101221102, 2101221102111, 2101221102111122, 2101221102111122201, 2101221102111122201212, 21012211021111222012121002, 210122110211112220121210021011, 2101221102111122201212100210111101
OFFSET
1,1
LINKS
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
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, May 26 2010
EXTENSIONS
Edited by N. J. A. Sloane, Jul 02 2017
STATUS
approved