OFFSET
1,1
COMMENTS
Leading zeros are discarded (e.g., 107, rearranged to 017, becomes 17).
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = prime(n) if prime(n) is in A028864. - Alonso del Arte, Nov 25 2019
EXAMPLE
The digits of 41 are 4, 1, which sorted are 1, 4; those are reinterpreted as 14.
The digits of 43 are 4, 3, which sorted are 3, 4; those are reinterpreted as 34.
The digits of 47 are 4, 7, which are already sorted, so 47 is not changed.
MATHEMATICA
Table[FromDigits[Sort[IntegerDigits[Prime[n]]]], {n, 100}] (* Alonso del Arte, Nov 25 2019 *)
PROG
(Haskell)
a028905 = a004185 . a000040 -- Reinhard Zumkeller, Apr 03 2015
(PARI) eva(n) = subst(Pol(n), x, 10)
a(n) = eva(vecsort(digits(prime(n)))) \\ Felix Fröhlich, Nov 25 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Patrick De Geest, April 1998
Offset corrected by Reinhard Zumkeller, Apr 03 2015
STATUS
approved