OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
25 = 5*5 and 25 has two digits.
116 = 2*2*29 and 116 has three digits.
MATHEMATICA
Select[Range[2, 300], Sum[FactorInteger[ # ][[i]][[2]], {i, 1, Length[FactorInteger[ # ]]}] == Floor[Log[10, # ] + 1] &] (* Stefan Steinerberger, Feb 27 2006 *)
Select[Range[200], PrimeOmega[#]==IntegerLength[#]&] (* Harvey P. Dale, Jul 28 2020 *)
PROG
(PARI) is(n)=#Str(n)==bigomega(n) \\ Charles R Greathouse IV, Feb 04 2013
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Teofilatto, Feb 24 2006
EXTENSIONS
More terms from Stefan Steinerberger, Feb 27 2006
STATUS
approved