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 A339534 #6 Dec 12 2020 06:17:06 %S A339534 19601,22049,48149,52057,67357,84457,85193,93493,104057,113257,115757, %T A339534 132857,160849,171793,186101,198449,206749,209249,224549,228457, %U A339534 235493,261593,265501,280801,297901,317501,326701,329201,329849,346301,359857,374293,374849 %N A339534 Numbers b > 1 such that the smallest five primes, i.e., 2, 3, 5, 7 and 11 are base-b Wieferich primes. %t A339534 Select[Range[2, 375000], Function[b, AllTrue[{2, 3, 5, 7, 11}, PowerMod[b, (# - 1), #^2] == 1 &]]] (* _Michael De Vlieger_, Dec 10 2020 *) %o A339534 (PARI) is(n) = forprime(p=1, 11, if(Mod(n, p^2)^(p-1)!=1, return(0))); 1 %Y A339534 Cf. A256236. Row 1 of A319062. %Y A339534 Cf. smallest k primes are base-b Wieferich primes: A339531 (k=2), A339532 (k=3), A339533 (k=4), A339535 (k=6), A339536 (k=7), A339537 (k=8). %K A339534 nonn %O A339534 1,1 %A A339534 _Felix Fröhlich_, Dec 08 2020