login
A046462
Numbers k such that the concatenation of numbers from 1 to k is the product of 3 primes (not necessarily distinct).
2
2, 5, 10, 13, 14, 15, 31, 51, 61, 67, 73
OFFSET
1,1
FORMULA
A046460(a(n)) = 3.
MAPLE
q:= n-> is(numtheory[bigomega](parse(cat($1..n)))=3):
select(q, [$1..35])[]; # Alois P. Heinz, Apr 10 2021
MATHEMATICA
Select[Range[100],
PrimeOmega@FromDigits@Flatten@IntegerDigits@Range@# == 3 &] (* Robert Price, Oct 11 2019 *)
CROSSREFS
Sequence in context: A090050 A274454 A192539 * A188025 A387350 A187949
KEYWORD
nonn,hard,base
AUTHOR
Patrick De Geest, Aug 15 1998
EXTENSIONS
a(10)-a(11) from Sean A. Irvine, Apr 10 2021
STATUS
approved