A228355 Write the primes backwards in base 10 and juxtapose their digits.
2, 3, 5, 7, 1, 1, 3, 1, 7, 1, 9, 1, 3, 2, 9, 2, 1, 3, 7, 3, 1, 4, 3, 4, 7, 4, 3, 5, 9, 5, 1, 6, 7, 6, 1, 7, 3, 7, 9, 7, 3, 8, 9, 8, 7, 9, 1, 0, 1, 3, 0, 1, 7, 0, 1, 9, 0, 1, 3, 1, 1, 7, 2, 1, 1, 3, 1, 7, 3, 1, 9, 3, 1, 9, 4, 1, 1, 5, 1, 7, 5, 1, 3, 6, 1, 7, 6
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..2000
Programs
-
Mathematica
Reverse[IntegerDigits//@ Reverse@Prime@Range@50//Flatten]
-
PARI
fromdigits( A=concat(apply( row(n)=Vecrev(digits(prime(n))), [1..default(realprecision)])))*.1^#A \\ Result = the constant, A = sequence of digits, row(n) = n-th row of the table. - M. F. Hasler, Oct 24 2019
Comments