cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A072385 Primes which can be represented as the sum of a prime and its reverse.

This page as a plain text file.
%I A072385 #30 Aug 08 2025 15:00:14
%S A072385 383,443,463,787,827,887,929,1009,1049,1069,1151,1171,1231,1373,1453,
%T A072385 1493,1777,30203,30403,31013,32213,32413,32423,33023,33223,34033,
%U A072385 34843,35053,36263,36653,37273,37463,37663,38083,38273,38873,39293,39883
%N A072385 Primes which can be represented as the sum of a prime and its reverse.
%C A072385 This set is the image under the "reverse and add" operation (A056964) of the Luhn primes A061783 (which remain prime under that operation). Those have always an odd number of digits, and start with an even digit. Therefore this sequence has its terms in intervals [3,20]*100^k with k = 1, 2, 3.... - _M. F. Hasler_, Sep 26 2019
%H A072385 Amiram Eldar, <a href="/A072385/b072385.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..253 from M. F. Hasler)
%H A072385 Matt Parker, <a href="https://www.youtube.com/watch?v=PQDvEJFdY1U">383 is cool</a>, Numberphile series on YouTube, Feb. 15, 2017.
%F A072385 a(n) = A056964(A061783(n)). - _M. F. Hasler_, Sep 26 2019
%e A072385 383 is a term because it is prime and it is the sum of prime 241 and its reverse 142.
%t A072385 f@n_:=(Select[# + IntegerReverse[#] & /@ Prime[Range[n]], PrimeQ@# && # <= Prime[n] &] // Union); f@3000 (* _Harvey P. Dale_, Jul 18 2018; corrected by _Hans Rudolf Widmer_, Aug 15 2024 *)
%o A072385 (PARI) is_A072385(p)={isprime(p)&&forprime(q=p\10,p*9\10,A056964(q)==p&&return(1))} \\ A056964(n)=n+fromdigits(Vecrev(digits(n))). It is much faster to produce the terms as shown below, rather than to "select" them from a range of primes. - _M. F. Hasler_, Sep 26 2019
%o A072385 (PARI) A072385=Set(apply(A056964, A061783)) \\ with, e.g.: A061783=select(is_A061783(p)={isprime(A056964(p))&&isprime(p)}, primes(8713)) - _M. F. Hasler_, Sep 26 2019
%Y A072385 Cf. A004086 (reverse), A004087 (primes reversed), A056964 (reverse & add), A061783 (Luhn primes), A086002 (similar, using "rotate" instead of "reverse").
%K A072385 base,nonn
%O A072385 1,1
%A A072385 _Shyam Sunder Gupta_, Jul 20 2002
%E A072385 Cross-references added by _M. F. Hasler_, Sep 26 2019