Answer by KennyColnago for Create a list of the first 100 deficient numbers
According to Sloane's A005100, the n^th deficient number is asymptotic to between 1.3287*n and 1.3298*n. Use a slightly larger limit to capture exceptions. nFirstDeficientNumbers[n_] := With[{r =...
View ArticleAnswer by kglr for Create a list of the first 100 deficient numbers
You can use ILD`DeficientNumberQ: i=0; k=1; Reap[While[k <= 100, If[ILD`DeficientNumberQ[++i], k++; Sow[i]]]][[2,1]] {1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 25, 26, 27,...
View ArticleCreate a list of the first 100 deficient numbers
For the purposes of the assignment, I need these values in a table. We have so far only used for/while loops to check the deficiency or abundance of certain types of numbers. I initially tried using a...
View Article