OFFSET
1,1
EXAMPLE
717 is a term because 717 = 3*239 and 3 + 239 = 242.
MATHEMATICA
Select[Range[10^6], PalindromeQ[#] && SquareFreeQ[#] && PrimeNu[#]==2 && PalindromeQ[Total[First/@FactorInteger[#]]]&] (* Stefano Spezia, Jul 06 2024 *)
PROG
(PARI) ispal(n)=my(d=digits(n)); d==Vecrev(d) \\
for(a=2, 10^10, if(omega(a)==2&&bigomega(a)==2 &&ispal(a), b=factor(a)[1, 1]+factor(a)[2, 1]; if(ispal(b), print1(a, ", "))))
(PARI) isok(k) = if (issquarefree(k) && ispal(k), my(f=factor(k)); (bigomega(f)==2) && ispal(f[1, 1]+f[2, 1])); \\ Michel Marcus, Jul 05 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alexandru Petrescu, Jul 05 2024
STATUS
approved