OFFSET
2,1
MAPLE
read("transforms") : isA002113 := proc(n) simplify(digrev(n) = n ); end proc:
isA002385 := proc(n) isprime(n) and isA002113(n) ; end proc:
A180506 := proc(n) fs := sort(convert(numtheory[factorset](n), list)) ; for i from 1 to nops(fs) do if isA002385(op(-i, fs)) then return op(-i, fs) ; end if; end do: return 0 ; end proc:
seq(A180506(n), n=2..104) ; # R. J. Mathar, Sep 19 2010
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Teofilatto, Sep 09 2010
EXTENSIONS
Offset and some values corrected by R. J. Mathar, Sep 19 2010
STATUS
approved