A329931 Reversal of base-n digits of largest prime < n^3.
7, 23, 31, 89, 71, 97, 383, 647, 799, 967, 1151, 1507, 2351, 3149, 3583, 4045, 4535, 6497, 5599, 7937, 6775, 10579, 4607, 12499, 16223, 18953, 15679, 16819, 21599, 28829, 14335, 32669, 36991, 29399, 38879, 49283, 51983, 3041, 60799, 63877, 56447, 55469, 38719
Offset: 2
Examples
For n = 3, prevprime(3^3) = 23 = 212_3, and reversal gives a(3) = 212_3 = 23. For n = 5, prevprime(5^3) = 113 = 423_5, and reversal gives a(5) = 324_5 = 89.
Crossrefs
Base-n reversal of A077037(n).
Programs
-
Mathematica
a[n_] := FromDigits[ Reverse@ IntegerDigits[ NextPrime[n^3, -1], n], n]; Array[a, 43, 2] (* Giovanni Resta, Nov 24 2019 *)
-
PARI
a(n) = fromdigits(Vecrev(digits(precprime(n^3-1), n)), n); \\ Michel Marcus, Nov 25 2019
Comments