|
|
A092447
|
|
Concatenate odd primes in decreasing order.
|
|
6
|
|
|
3, 53, 753, 11753, 1311753, 171311753, 19171311753, 2319171311753, 292319171311753, 31292319171311753, 3731292319171311753, 413731292319171311753, 43413731292319171311753, 4743413731292319171311753, 534743413731292319171311753, 59534743413731292319171311753
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[FromDigits[Flatten[IntegerDigits/@Reverse[Prime[Range[2, n]]]]], {n, 2, 21}] (* Harvey P. Dale, Mar 01 2023 *)
|
|
PROG
|
(PARI) a(n)={fromdigits(concat([digits(k) | k<-Vecrev(primes(n+1))[1..n]]))} \\ Andrew Howroyd, Feb 12 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Micha Fleuren (michafleuren(AT)hotmail.com), Mar 24 2004
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|