1,1

There is no further term up to 10800.

Do[If[PrimeQ[10^n - Prime[n]], Print[n]], {n, 10800}]

Cf. A110065, A110067.

Sequence in context: A067083 A109003 A120031 this_sequence A127974 A012801 A004096

Adjacent sequences: A110063 A110064 A110065 this_sequence A110067 A110068 A110069

more,nonn

Farideh Firoozbakht (f.firoozbakht(AT)math.ui.ac.ir), Jul 12 2005