OFFSET
0,1
EXAMPLE
2,23,233,2333,23333,2333323 etc. are primes.
MAPLE
ds:=proc(s) local j: RETURN(add(s[j]*10^(j-1), j=1..nops(s))):end: a:=[2]: k:=1: for n from 1 to 50 do l:=nops(a): for i from k do p:=ithprime(i): if isprime(ds([op(convert(p, base, 10)), seq(op(convert(a[l-j], base, 10)), j=0..l-1)])) then a:=[op(a), p]: k:=i: break fi od od: op(a); # C. Ronaldo
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 10 2003
EXTENSIONS
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 25 2004
STATUS
approved