OFFSET
1,1
EXAMPLE
Increasing the leading digit of 97 (prime) by one yields 107 (prime). Hence 97 is a term of the sequence.
MATHEMATICA
f[n_] := Block[{a = IntegerDigits[n] }, a[[1]] = a[[1]] + 1; Return[ FromDigits[a]]]; Select[ Range[1100], PrimeQ[ # ] && PrimeQ[ f[ # ]] & ]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Joseph L. Pe, Feb 19 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Feb 21 2002
STATUS
approved