OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 5almostprime(prime(1)) = 5almostprime(2) = 48 = 2^4 * 3.
a(2) = 5almostprime(prime(2)) = 5almostprime(3) = 72 = 2^3 * 3^2.
a(3) = 5almostprime(prime(3)) = 5almostprime(5) = 108 = 2^2 * 3^3.
PROG
(PARI) list(lim)=my(v=List(), u=v); forprime(p=2, lim\16, forprime(q=2, min(lim\(8*p), p), forprime(r=2, min(lim\(4*p*q), q), forprime(s=2, min(lim\(2*p*q*r), r), forprime(t=2, min(lim\(p*q*r*s), s), listput(v, p*q*r*s*t)))))); v=Set(v); forprime(p=2, #v, listput(u, v[p])); v=0; Vec(u) \\ Charles R Greathouse IV, Feb 10 2017
CROSSREFS
Cf. A124308 Primes indexed by 5-almost primes. A124310 prime(5almostprime(n)) - 5almostprime(prime(n)). 4-almost primes indexed by primes = A124283. prime(4almostprime(n)) - 4almostprime(prime(n)) = A124284. Primes indexed by 3-almost primes = A124268. 3-almost primes indexed by primes = A124269. prime(3almostprime(n)) - 3almostprime(prime(n)) = A124270. See also A106349 Primes indexed by semiprimes. See also A106350 Semiprimes indexed by primes. See also A122824 Prime(semiprime(n)) - semiprime(prime(n)). Commutator [A000040, A001358] at n.
KEYWORD
easy,nonn,less
AUTHOR
Jonathan Vos Post, Oct 25 2006
EXTENSIONS
a(16)-a(47) from Giovanni Resta, Jun 13 2016
STATUS
approved