OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000 (first 1000 terms from Vincenzo Librandi)
FORMULA
{ m : A069904(m) = 8 }. - Alois P. Heinz, Aug 05 2019
EXAMPLE
a(1) = 63 because A000217(63) = 63*(63+1)/2 = 2016 = 2^5 * 3^2 * 7 is an 8-almost prime.
MATHEMATICA
Flatten[Position[Accumulate[Range[1500]], _?(PrimeOmega[#]== 8 &)]]
PROG
(GAP) F:=List([1..1200], n->Length(Factors(n*(n+1)/2)));; a:=Filtered([1..Length(F)], i->F[i]=8); # Muniru A Asiru, Dec 22 2018
(Magma) [n: n in [2..1200] | &+[d[2]: d in Factorization((n*(n+1)))] eq 9]; // Vincenzo Librandi, Dec 22 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Apr 07 2014
STATUS
approved