OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..100
EXAMPLE
85997 * p(85997) = 719020917.
MATHEMATICA
ntpQ[n_]:=Module[{idn=IntegerDigits[n*PrimePi[n]]}, idn==Reverse[idn]]; Select[Range[300000], ntpQ] (* Harvey P. Dale, Nov 13 2013 *)
PROG
(Python)
from sympy import nextprime
n, k, m, A116054_list = 0, 1, 2, []
while len(A116054_list) < 100:
for i in range(k, m):
s = str(i*n)
if s == s[::-1]:
A116054_list.append(i)
n += 1
k, m = m, nextprime(m) # Chai Wah Wu, Jul 25 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved