1,1

Table of n, a(n) for n=1..53.

Increasing the leading digit of 97 (prime) by one yields 107 (prime). Hence 97 is a term of the sequence.

f[n_] := Block[{a = IntegerDigits[n] }, a[[1]] = a[[1]] + 1; Return[ FromDigits[a]]]; Select[ Range[1100], PrimeQ[ # ] && PrimeQ[ f[ # ]] & ]

Sequence in context: A168672 A297854 A298089 * A142348 A309663 A181686

Adjacent sequences: A067205 A067206 A067207 * A067209 A067210 A067211

base,easy,nonn

Joseph L. Pe, Feb 19 2002

Edited and extended by Robert G. Wilson v, Feb 21 2002

approved