A099073 Numbers k such that the concatenation of the first k-1 odd primes in decreasing order is prime.
2, 3, 7, 24, 76, 1100
Offset: 1
Examples
7 is in the sequence because the first 6 odd primes are 3,5,7,11,13,17 and 17.13.11.7.5.3 is prime (dot between numbers means concatenation).
Links
- Carlos Rivera, Puzzle 8. Primes by Listing, The Prime Puzzles and Problems Connection.
Programs
-
Mathematica
Do[If[PrimeQ[(v={};Do[v=Join[v, IntegerDigits[Prime[n-j+1]]], {j, n-1}];FromDigits[v])], Print[n]], {n, 2, 4500}] Select[Range[1100],PrimeQ[FromDigits[Flatten[IntegerDigits/@ Reverse[ Prime[ Range[ 2,#]]]]]]&] (* Harvey P. Dale, Nov 12 2017 *)
Comments