OFFSET
1,2
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
PROG
(PARI) e=vector(22); for(j=1, 22, e[j]=concat(Str(j), ", ")); ps=vector(1000); c=0; for(m=1, 7388415, t=m*(m+1)\2; om=omega(t); f=factorint(t); v=vector(om); for(j=1, om, v[j]=f[j, 2]); v=vecsort(v, , 4); st=""; for(j=1, om, st=concat(st, e[v[j]])); fd=0; for(j=1, c, if(st==ps[j], fd=1; j=c)); if(fd==0, c++; write("b085076.txt", c " " t); ps[c]=st)) /* Donovan Johnson, May 26 2013 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 01 2003
EXTENSIONS
More terms from David Wasserman, Jan 14 2005
Offset corrected by Donovan Johnson, May 26 2013
STATUS
approved