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
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, May 26 2010
EXTENSIONS
Edited by N. J. A. Sloane, Jul 02 2017
STATUS
approved