A283802 Numbers k such that the concatenation of the first k odd composite numbers is a prime.
21, 73, 132
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Consecutive Number Sequences
Programs
-
Mathematica
k = 2; cc = oc = 0; lst = {}; While[k < 428, If[OddQ@k && !PrimeQ@k, cc = cc*10^IntegerLength@k + k; oc++; If[PrimeQ[cc], AppendTo[lst, oc]]]; k++]; lst (* Robert G. Wilson v, Mar 18 2017 *) Module[{nn=501,ocm},ocm=Select[Range[9,nn,2],CompositeQ];Select[ Range[ Length[ ocm]],PrimeQ[FromDigits[Flatten[IntegerDigits/@Take[ocm,#]]]]&]] (* Harvey P. Dale, Sep 02 2022 *)
Comments