OFFSET
1,1
COMMENTS
The fixed points where a(n) = n are A046328.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..2000
MATHEMATICA
t = Select[Range[200], PrimeOmega[#] == 2 &]; FromDigits[Reverse[IntegerDigits[#]]] & /@ t (* T. D. Noe, Mar 26 2012 *)
IntegerReverse/@Select[Range[500], PrimeOmega[#]==2&] (* Harvey P. Dale, Dec 06 2021 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jonathan Vos Post, Mar 23 2012
STATUS
approved