|
%I #8 Nov 01 2019 16:18:11
%S 3,7,11,23,29,47,53,59,83,103,107,149,167,173,179,191,227,263,269,283,
%T 293,311,317,347,359,367,383,389,467,479,503,509,557,563,569,587,607,
%U 619,643,653,709,719,773,797,823,839,863,887,907,983,1019,1087,1091
%N The p values which produce new terms in A112037.
%t 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 The p values which do not produce new terms in A112037 are given by A061303. - _Ray Chandler_, Nov 30 2005
%Y Cf. A112037, A114461.
%K easy,nonn
%O 1,1
%A Michel Dauchez (mdzdm(AT)yahoo.fr), Nov 28 2005
%E Better description from Jack Brennen, Nov 28, 2005
%E Extended by _Ray Chandler_ and _Robert G. Wilson v_, Nov 30 2005
|
