A095411 Numbers k such that total number of decimal digits of all distinct prime factors of k is larger than the number of digits of k.
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
Offset: 1
Examples
For k=55: 2 digits, prime set={5,11} with {5,1,1} digits, 3>2, so 55 is a term.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
q[n_] := Total[IntegerLength /@ FactorInteger[n][[;; , 1]]] > IntegerLength[n]; q[1] = False; Select[Range[210], q] (* Amiram Eldar, Mar 25 2025 *)
Extensions
Name corrected by Amiram Eldar, Mar 25 2025