aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Hamming-numbers/PARI-GP/hamming-numbers.parigp Normal file
View file

@ -0,0 +1,15 @@
Hupto(n)={
my(r=Vec([1],n),v=primes(3),[v1,v2,v3]=v,i=1,j=1,k=1,t);
for(m=2,n,
r[m]=t=min(v1,min(v2,v3));
if(v1 == t, v1 = v[1] * r[i++]);
if(v2 == t, v2 = v[2] * r[j++]);
if(v3 == t, v3 = v[3] * r[k++]);
);
r
};
H(n)=Hupto(n)[n];
Hupto(20)
H(1691)
H(10^6)