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 A283549 #32 Mar 03 2024 10:15:31
%S A283549 4,9,16,27,49,64,121,125,169,289,1681,1849,2401,3481,4913,5329,11881,
%T A283549 12769,16129,18769,24649,29791,32041,32761,38809,39601,44521,63001,
%U A283549 69169,76729,78125,79507,85849,96721,124609,130321,134689,143641,167281,175561,187489,237169,316969,326041,332929,380689,383161,434281,491401
%N A283549 Composite numbers k such that tau(k^(k-1)) is a prime.
%C A283549 A proper subset of A280257 and of A025475.
%H A283549 Robert G. Wilson v, <a href="/A283549/b283549.txt">Table of n, a(n) for n = 1..10556</a>
%t A283549 k = 1; lst = {}; While[k < 100001, If [ !PrimeQ@ k && PrimeQ[ DivisorSigma[0, k^(k -1)]], AppendTo[lst, k]]; k++]; lst (* or *)
%t A283549 mx = 10^6; Union@ Flatten@ Reap[ Do[ Sow@ Select[ Prime[ Range[ PrimePi[ mx^(1/e) ]]]^e, PrimeQ[1 + e (#-1)] &], {e, 2, Log2[mx]}]][[2, 1]] (* _Giovanni Resta_, Mar 10 2017 *)
%o A283549 (PARI) is(n)=!isprime(n) && ispseudoprime(numdiv(n^(n-1))) \\ _Charles R Greathouse IV_, Mar 10 2017
%Y A283549 Cf. A280257, A025475.
%K A283549 nonn
%O A283549 1,1
%A A283549 _Robert G. Wilson v_, Mar 10 2017