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 A343115 #20 May 07 2021 20:34:10 %S A343115 1,2,3,4,5,6,8,12,15,19,24,95,361,876 %N A343115 Numbers k such that k^2 divides 5^k - 3^k - 2^k. %C A343115 Are there only finitely many such numbers? %C A343115 Primes in the sequence are A130076. %C A343115 Next term, if it exists, exceeds 5*10^8. - _Jon E. Schoenfield_, May 07 2021 %p A343115 q:= k-> is(0=5&^k-3&^k-2&^k mod k^2): %p A343115 select(q, [$1..1000])[]; # _Alois P. Heinz_, May 07 2021 %t A343115 Select[Range[1000], Mod[PowerMod[2, #, #^2] + PowerMod[3, #, #^2],#^2] == PowerMod[5, #, #^2] &] (* _Amiram Eldar_, Apr 05 2021 *) %Y A343115 Cf. A130072, A130073, A130076. %K A343115 nonn,more %O A343115 1,2 %A A343115 _Thomas Ordowski_, Apr 05 2021