OFFSET
1,1
COMMENTS
omega(n) = A001221(n) is the number of distinct primes dividing n.
EXAMPLE
300 is in the sequence because omega(300) = reversal(300) = 3.
MATHEMATICA
Do[If[Length[ FactorInteger[ n ]]==FromDigits[Reverse[IntegerDigits[n]]], Print[n]],
{n, 1, 10^9}]
Select[Range[10^9], PrimeNu[#]==FromDigits[Reverse[IntegerDigits[#]]]&] (* or *) Flatten[Table[{2*10^n, 3*10^n}, {n, 10}]] (* Harvey P. Dale, Dec 17 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Nov 18 2010
STATUS
approved