|
Search: id:A078845
|
|
|
| A078845 |
|
Where 7^n occurs in n-almost-primes, starting at a(0)=1. |
|
+0
13
|
|
| 1, 4, 17, 82, 385, 1688, 7089, 28893, 115180, 450906, 1740244, 6640747, 25115604, 94312569, 352110321, 1308256678
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
A k-almost-prime is a positive integer that has exactly k prime factors, counted with multiplicity.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Almost Prime.
|
|
EXAMPLE
|
a(2) = 17 since 7^2 the 17-th 2-almost-prime: {4,6,9,10,14,15,21,22,25,26,33,34,35,38,39,46,49,...}.
|
|
MATHEMATICA
|
l = Table[0, {30}]; e = 0; Do[f = Plus @@ Last /@ FactorInteger[n]; l[[f+1]]++; If[n == 7^e, Print[l[[f+1]]]; e++ ], {n, 1, 7^10}] (Propper)
AlmostPrimePi[k_Integer /; k > 1, n_] := Module[{a, i}, a[0] = 1; Sum[PrimePi[n/Times @@ Prime[Array[a, k - 1]]] - a[k - 1] + 1, Evaluate[Sequence @@ Table[{a[i], a[i - 1], PrimePi[(n/Times @@ Prime[Array[a, i - 1]])^(1/(k - i + 1))]}, {i, k - 1}]]]]; Eric Weisstein (eww(AT)wolfram.com) Feb 07 2006
Table[ AlmostPrimePi[n, 7^n], {n, 2, 15}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Cf. A078840, A078841, A078842, A078843, A078844, A078846.
Sequence in context: A056096 A151250 A121545 this_sequence A110771 A082028 A052315
Adjacent sequences: A078842 A078843 A078844 this_sequence A078846 A078847 A078848
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Benoit Cloitre (benoit7848c(AT)orange.fr) and Paul D. Hanna (pauldhanna(AT)juno.com), Dec 10 2002
|
|
EXTENSIONS
|
4 more terms from Ryan Propper (rpropper(AT)stanford.edu), Aug 08 2005
a(11)-a(15) from Robert G. Wilson v (rgwv(at)rgwv.com), Feb 09 2006
|
|
|
Search completed in 0.023 seconds
|
