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 A112038 #10 Jul 01 2025 01:00:06
%S A112038 3,7,11,23,29,47,53,59,83,103,107,149,167,173,179,191,227,263,269,283,
%T A112038 293,311,317,347,359,367,383,389,467,479,503,509,557,563,569,587,607,
%U A112038 619,643,653,709,719,773,797,823,839,863,887,907,983,1019,1087,1091
%N A112038 The p values which produce new terms in A112037.
%t A112038 lst = {}; r[n_] := (len = Length@lst; lst = Flatten@ Join[lst, Select[First /@ FactorInteger[Prime@n - 1], ! MemberQ[lst, # ] &]]; If[l < Length@lst, 1, 0]); Prime /@ Select[Range@185, r[ # ] == 1 &] (* _Robert G. Wilson v_ *)
%Y A112038 The p values which do not produce new terms in A112037 are given by A061303. - _Ray Chandler_, Nov 30 2005
%Y A112038 Cf. A112037, A114461.
%K A112038 easy,nonn
%O A112038 1,1
%A A112038 Michel Dauchez (mdzdm(AT)yahoo.fr), Nov 28 2005
%E A112038 Better description from Jack Brennen, Nov 28 2005
%E A112038 Extended by _Ray Chandler_ and _Robert G. Wilson v_, Nov 30 2005