OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..8201 (terms 1..458 from Robert Israel)
EXAMPLE
8867 is prime and 7688 = 2^3 * 31^2.
MAPLE
N:= 10000; # to get all entries <= N
F:= proc(p)
local L, i, q, f;
if not isprime(p) then return false end if;
L:= convert(p, base, 10);
q:= add(10^(i-1)*L[-i], i=1..nops(L));
f:= ifactors(q)[2];
not has(map2(op, 2, f), 1);
end proc;
select(F, [2*i+1 $ i=1..floor((N-1)/2)]);
# Robert Israel, Feb 11 2013
MATHEMATICA
fQ[n_] := Min[ Last@# & /@ FactorInteger@ FromDigits@ Reverse@ IntegerDigits@ n] > 1; Select[ Prime@ Range@ 8000, fQ] (* Robert G. Wilson v, Feb 11 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
STATUS
approved