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 A336462 #5 Jul 24 2020 10:58:32 %S A336462 1,2,5,12,19,24,27,28,38,39,44,54,56,59,60,65,78,83,84,87,92,95,123, %T A336462 124,129,133,136,143,160,167,168,178,212,223,248,258,259,266,269,276, %U A336462 285,288,297,308,360,393,395,413,427,429,437,446,455,473,479,501,518,522,528,555,560,581,611,612,681,738,752,755 %N A336462 Numbers k for which A335915(sigma(k)) = A335915(sigma(sigma(k))). %C A336462 Numbers k for which A336455(k) = A336455(sigma(k)) = A336456(k). %C A336462 Numbers k such that sigma(k) is in A336461. %C A336462 See comments in A336464. %H A336462 <a href="/index/O#opnseqs">Index entries for sequences where odd perfect numbers must occur, if they exist at all</a> %o A336462 (PARI) %o A336462 A000265(n) = (n>>valuation(n,2)); %o A336462 A335915(n) = { my(f=factor(n)); prod(k=1,#f~,if(2==f[k,1],1,(A000265((f[k,1]^2)-1)^f[k,2]))); }; %o A336462 isA336462(n) = (A335915(sigma(n))==A335915(sigma(sigma(n)))); %Y A336462 Cf. A000203, A000265, A335915, A336455, A336456. %Y A336462 Cf. also A336461, A336463, A336464. %K A336462 nonn %O A336462 1,2 %A A336462 _Antti Karttunen_, Jul 22 2020