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 A328497 #12 Dec 15 2023 18:51:18 %S A328497 418,27173,2001341,16024189487 %N A328497 Terms of A082180 that are not squares or cubes of primes. %C A328497 Complement of A168363 in A082180. %C A328497 Are there any other terms like 418 that are not in A228562? %C A328497 No other terms below 2*10^10. - _Max Alekseyev_, Dec 15 2023 %t A328497 Select[Range[30000], CompositeQ[#] && Not[IntegerQ[Sqrt[#]]] && Not[IntegerQ[#^(1/3)]] && Mod[Binomial[2*#, #], #] == 2 &] (* _Vaclav Kotesovec_, Oct 17 2019 *) %o A328497 (PARI) forcomposite(c=1, , if(!setintersect(Set(isprimepower(c)), [2, 3]), if(Mod(binomial(2*c, c), c)==2, print1(c, ", ")))) %Y A328497 The odd terms form A228562. %Y A328497 Cf. A082180, A168363. %K A328497 nonn,hard,more %O A328497 1,1 %A A328497 _Felix Fröhlich_, Oct 17 2019 %E A328497 a(4) from _Max Alekseyev_, Dec 15 2023