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 A293512 #19 Sep 04 2021 05:53:29 %S A293512 348,355,358,383,388,427,448,455,478,479,485,490,491,497,499,508,509, %T A293512 511,515,520,521,533,535,541,545,547,551,553,556,557,559,560,679,708, %U A293512 759,765,777,796,807,808,822,828,838,839,847,862,891,906,928,931,933,951 %N A293512 Numbers k such that the smallest pseudoprime ( > k ) to base k, A007535(k), is a Carmichael number. %H A293512 Amiram Eldar, <a href="/A293512/b293512.txt">Table of n, a(n) for n = 1..10000</a> %e A293512 348 is the sequence since A007535(348) = 1105 is a Carmichael number. %t A293512 carmichaelQ[n_] := Divisible[n - 1, CarmichaelLambda[n]] && ! PrimeQ[n]; %t A293512 f[n_] := Block[{k = n}, While[GCD[n, k] > 1 || PrimeQ[k] || PowerMod[n, k - 1, k] != 1, j = k++]; k]; Select[Range[1000], carmichaelQ[f[#]] &] (* after _Robert G. Wilson v_ at A090086 *) %Y A293512 Cf. A002997, A007535. %K A293512 nonn %O A293512 1,1 %A A293512 _Amiram Eldar_, Oct 12 2017