OFFSET
1,1
COMMENTS
Products of emirp pairs, sorted. - Lekraj Beedassy, Jan 10 2008
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(2)= 1207 = 17 * 71.
MAPLE
revdigs:= proc(n) local i, L;
L:= convert(n, base, 10);
add(L[-i]*10^(i-1), i=1..nops(L))
end proc:
f:= proc(p) local r;
if not isprime(p) then return NULL fi;
r:= revdigs(p);
if r > p and isprime(r) then r*p fi
end proc:
sort(map(f, [seq(i, i=13..9999, 2)])); # Robert Israel, Dec 26 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 17 2003
EXTENSIONS
More terms from Ray Chandler, Jul 22 2003
STATUS
approved