login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes p which are greater than twice p reversed.
1

%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