OFFSET
1,1
COMMENTS
a(17) = 181, obtained as a concatenation of 18 followed by 18 - 17 = 1.
MAPLE
ds:=proc(s) local j: RETURN(add(s[j]*10^(j-1), j=1..nops(s))): end: a:=proc(n) local k, m: for k from n+1 do m:=ds([op(convert(k-n, base, 10)), op(convert(k, base, 10))]): if isprime(m) then RETURN(m) fi od: end: seq(a(n), n=0..60); # C. Ronaldo
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 17 2003
EXTENSIONS
Corrected and extended by C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 25 2004
STATUS
approved