OFFSET
2,1
COMMENTS
Conjecture: Sequence is infinite.
EXAMPLE
a(5) = 99989 and dd(99989) = 0011 = 11 is a prime.
MATHEMATICA
npr[n_]:=Module[{pr=NextPrime[10^n, -1]}, While[!PrimeQ[FromDigits[Abs[ Differences[ IntegerDigits[pr]]]]], pr=NextPrime[pr, -1]]; pr]; Array[ npr, 20, 2] (* Harvey P. Dale, Mar 06 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 18 2003
EXTENSIONS
More terms from David Wasserman, Jun 15 2005
STATUS
approved