A100003 Prime numbers p such that the concatenation of all odd primes up through p in decreasing order is prime.
3, 5, 17, 89, 383, 8831
Offset: 1
Examples
17 is in the sequence because 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.
Crossrefs
Programs
-
Mathematica
Do[If[PrimeQ[(v={};Do[v=Join[v, IntegerDigits[Prime[n-j+1]]], {j, n-1}];FromDigits[v])], Print[Prime[n]]], {n, 2, 4413}] Prime[#]&/@Select[Range[100],PrimeQ[FromDigits[Flatten[IntegerDigits/@ Prime[Range[#,2,-1]]]]]&] (* To generate a(6) increase the Range by 1000, but the program will run a long time. *) (* Harvey P. Dale, Nov 27 2015 *)
Comments