OFFSET
1,1
MAPLE
A100959 := proc(n) option remember ; if n <= 3 then n ; else for a from procname(n-1)+1 do if numtheory[bigomega](a) <> 2 then return a; end if; end do: end if: end proc: read("transforms") ; for n from 1 to 300 do c := A100959(n) ; if isprime(digrev(c)) then printf("%d, ", c) ; end if; end do: # R. J. Mathar, Apr 27 2010
MATHEMATICA
Select[Range[400], PrimeOmega[#]!=2&&PrimeQ[FromDigits[Reverse[ IntegerDigits[ #]]]]&] (* Harvey P. Dale, Jan 03 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Apr 20 2010
EXTENSIONS
Corrected (20, 30, 50, 70, 76, 92, 110, 128, etc. inserted) by R. J. Mathar, Apr 27 2010
STATUS
approved