OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..40 (terms < 2*10^21)
EXAMPLE
a(4) = 56 = 2*2*2*7.
MATHEMATICA
a={}; k=1; For[n=1, n<=25, n++, While[PrimeOmega[k(k+1)]!=n, k++]; AppendTo[a, k(k+1)]]; a (* Stefano Spezia, Jan 01 2023 *)
PROG
(PARI) {ondf(m) = for(n=1, m, k=1; while(bigomega(k*(k+1))!=n, k++); print1(k*(k+1)", ")) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, May 30 2003
EXTENSIONS
More terms from Don Reble, Jun 03 2003
a(0) = 0 removed by Stefano Spezia, Jan 04 2023
STATUS
approved