|
%I #3 Aug 13 2020 14:01:06
%S 31,41,61,71,83,311,331,401,421,431,461,491,521,541,571,601,631,641,
%T 661,691,701,733,743,751,761,773,811,821,823,853,863,881,883,911,941,
%U 953,971,983,991,2311,2411,2521,2621,2711,2801,3001,3011,3041,3121,3221
%N Primes p which are greater than twice p reversed.
%H Erich Friedman, <a href="https://erich-friedman.github.io/numbers.html">What's Special About This Number?</a>.
%e 31 is in the sequence since 31 > 2*13.
%t Select[ Prime[ Range[ 460]], # > 2FromDigits[ Reverse[ IntegerDigits[ # ]]] &]
%K base,nonn
%O 1,1
%A _Robert G. Wilson v_, Oct 01 2004
|
