|
%I #22 Mar 31 2021 04:57:17
%S 101,181,191,313,727,757,787,797,13931,71317,73237,77977,7791977
%N Palindromic primes that are "near miss circular primes" (all cyclic shifts except one are primes).
%H Patrick De Geest, <a href="http://www.worldofnumbers.com/circular.htm">Circular primes</a>
%t NearCyclPrmsUpTo10powerK[k_]:= Union@Flatten[Table[ParallelMap[If[IntegerDigits[#]== Reverse@IntegerDigits[#] && (Count[FromDigits/@
%t NestList[RotateLeft, IntegerDigits[#], IntegerLength[#]-1], _?PrimeQ] ==IntegerLength[#]-1), #, Nothing]&, Select[FromDigits/@ Tuples[{1, 2, 3, 5, 7, 8, 9, 0}, n], PrimeQ]], {n, 3, k}], 1]; NearCyclPrmsUpTo10powerK[7] (* _Mikk Heidemaa_, Apr 26 2017 *)
%Y Cf. A002385, A270083.
%K fini,nonn,base
%O 0,1
%A _Carlos Rivera_
%E Corrected by _Jud McCranie_, Jan 04 2001
|
