This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A338190 #5 Oct 15 2020 10:51:56 %S A338190 1,2,3,4,5,6,7,8,9,10,11,13,14,15,16,17,18,19,22,23,25,26,27,29,30,31, %T A338190 32,34,36,37,38,39,41,43,45,46,47,49,50,51,53,54,58,59,61,62,64,67,71, %U A338190 73,74,75,78,79,81,82,83,85,86,87,89,90,91,94,97,98,99,101,102 %N A338190 Integers m such that A337454(m) = tau(m), the number of divisors of n. %o A338190 (PARI) f(n) = sumdiv(n, d, n % (sum(m=0, n-1, Mod(m, n)^d == m)/sum(m=0, n-1, -Mod(m, n)^d == m)) == 0); \\ A337454 %o A338190 isok(n) = f(n) == numdiv(n); %Y A338190 Cf. A000005, A337454, A338189. %K A338190 nonn %O A338190 1,2 %A A338190 _Michel Marcus_, Oct 15 2020