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 A137819 #15 Jul 21 2017 17:28:28 %S A137819 1811079,4473387,67009923,77242167,88605819,110475819,120781449, %T A137819 132208767,134082297,165515319,183408867,225548469,232275681, %U A137819 272876607,284339403,326557251,349538247,402371793,425844621,501668883,566867727 %N A137819 Year numbers, i.e., phi(n) = 2 phi(sigma(n)), divisible by a 5th prime power. %C A137819 See A137815 for more comments and references about "year numbers". This is the subsequence of elements of A137815 divisible by a 5th prime power. As such, it is of course also a subsequence of A137818 (those divisible by a 4th prime power). %C A137819 There are only 5 such numbers below 10^8. %H A137819 Donovan Johnson, <a href="/A137819/b137819.txt">Table of n, a(n) for n = 1..100</a> %o A137819 (PARI) for( i=1,#A137816, vecmax(factor(A137816[i])[,2])>4 & print1(A137816[i])", ") %o A137819 (PARI) for( n=1,10^9, issquarefree(n) && next; vecmax(factor(n)[,2])>4 || next; eulerphi(n)==2*eulerphi(sigma(n)) && print1(n", ")) %Y A137819 Cf. A137815-A137818. %K A137819 nonn %O A137819 1,1 %A A137819 _R. K. Guy_, _R. J. Mathar_ and _M. F. Hasler_, Feb 11 2008 %E A137819 More terms from Russell Pochis (joebobpumpkin(AT)gmail.com), May 30 2010 %E A137819 Typo in data corrected by _D. S. McNeil_, Aug 17 2010