10 repeat
20 inc N:P=nxtprm(P)
30 Prod=N*P
40 Prs=cutspc(str(Prod))
50 Good=1
60 for I=1 to int(len(Prs)/2)
70 if mid(Prs,I,1)<>mid(Prs,len(Prs)+1-I,1) then Good=0
80 next
90 if Good then print N,P,Prod
100 until P=0
finds
n nth prime product
1 2 2
2 3 6
5 11 55
12 37 444
16 53 848
3623 33827 122555221
4119 39119 161131161
618725 9260479 5729689869275
708567 10708871 7587952597857
1498739 23858227 35757255275753
before being stopped manually.
Using these numbers to look up the sequences in Sloane's OEIS gives one more example:
A084122 A084121 A084123
2762990591 65941772591 182196497222794691281
|
Posted by Charlie
on 2012-05-11 14:06:26 |