A099070 Numbers k such that the concatenation of all nonprime natural numbers up to k with decreasing order is prime.
4, 5, 6, 7, 8, 9, 26, 1752, 1753
Offset: 1
Examples
9 is in the sequence because all nonprime natural numbers up to 9 are 1,4,6,8 & 9 and 98641 is prime.
Links
- Carlos Rivera, Puzzle 8. Primes by Listing, The Prime Puzzles & Problems connection.
Programs
-
Mathematica
Do[If[PrimeQ[(v={};Do[If[ !PrimeQ[n+1-j], v=Join[v, IntegerDigits [n+1-j]]], {j, n}];FromDigits[v])], Print[n]], {n, 5450}]
Comments