The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A095411 Numbers n such that total number of decimal digits of all distinct prime factors of n is smaller than the number of digits of n. 2
 6, 22, 26, 30, 33, 34, 38, 39, 42, 44, 46, 51, 52, 55, 57, 58, 60, 62, 65, 66, 68, 69, 70, 74, 76, 77, 78, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 99, 102, 110, 114, 130, 132, 138, 143, 154, 156, 165, 170, 174, 182, 186, 187, 190, 195, 198, 202, 204, 206, 209 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Table of n, a(n) for n=1..62. FORMULA Solutions to A095407[x] < A055642[x]. EXAMPLE n=55: 2 digits, prime set={5,11} with {5,1,1} digits, 3>2, 55 is here. MATHEMATICA ffi[x_] :=Flatten[FactorInteger[x]] lf[x_] :=Length[FactorInteger[x]] ba[x_] :=Table[Part[ffi[x], 2*j-1], {j, 1, lf[x]}] tdp[x_] :=Flatten[Table[IntegerDigits[Part[ba[x], j]], {j, 1, lf[x]}], 1] pl[x_] :=Length[tdp[x]] nl[x_] :=Length[IntegerDigits[x]] t1=Table[nl[w], {w, 1, 1000}]; t2=Table[pl[w], {w, 1, 1000}]; t2-t1 Flatten[Position[t2-t1, 1]] CROSSREFS Cf. A055642, A095407, A095408, A095409, A095410. Sequence in context: A044067 A106685 A078118 * A242592 A044448 A111036 Adjacent sequences: A095408 A095409 A095410 * A095412 A095413 A095414 KEYWORD base,nonn AUTHOR Labos Elemer, Jun 21 2004 STATUS approved

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

Last modified February 22 05:17 EST 2024. Contains 370239 sequences. (Running on oeis4.)