login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A165256 Numbers whose number of distinct prime factors equals the number of digits in the number. 3
2, 3, 4, 5, 7, 8, 9, 10, 12, 14, 15, 18, 20, 21, 22, 24, 26, 28, 33, 34, 35, 36, 38, 39, 40, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 62, 63, 65, 68, 69, 72, 74, 75, 76, 77, 80, 82, 85, 86, 87, 88, 91, 92, 93, 94, 95, 96, 98, 99, 102, 105, 110, 114, 120, 126, 130, 132 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Is this sequence finite? If the answer is yes, is there any estimate for the number of terms of this sequence? [From Parthasarathy Nambi, Nov 16 2009]

This sequence is finite since there are only finitely many primes less than 10. - Charles R Greathouse IV, Feb 04 2013

LINKS

Charles R Greathouse IV, Table of n, a(n) for n = 1..7812 (complete sequence)

EXAMPLE

The number of distinct prime factors of 4 is one which is the same as the number of digits in 4, so 4 is in the sequence. The number of distinct prime factors of 21 is two which is the same as the number of digits in 21, so 21 is in the sequence. However, 25 is NOT in the sequence because the number of distinct prime factors of 25 is one which does not match the number of digits in 25.

MAPLE

omega := proc(n) nops(numtheory[factorset](n)) ; end: A055642 := proc(n) max(1, ilog10(n)+1) ; end: A165256 := proc(n) option remember; local a; if n = 1 then 2; else for a from procname(n-1)+1 do if A055642(a) = omega(a) then RETURN(a) ; fi; od: fi; end: seq(A165256(n), n=1..120) ; # From R. J. Mathar, Sep 17 2009

MATHEMATICA

Select[Range[200], IntegerLength[#] == Length[FactorInteger[#]] &]  (* Harvey P. Dale, Mar 20 2011 *)

PROG

(PARI) is(n)=#Str(n)==omega(n) \\ Charles R Greathouse IV, Feb 04 2013

CROSSREFS

Sequence in context: A006644 A024898 A094210 * A175020 A050728 A230999

Adjacent sequences:  A165253 A165254 A165255 * A165257 A165258 A165259

KEYWORD

base,nonn,fini,full

AUTHOR

Parthasarathy Nambi, Sep 11 2009

EXTENSIONS

Extended by R. J. Mathar, Sep 17 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 21 22:19 EDT 2019. Contains 321382 sequences. (Running on oeis4.)