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.

A144719 Semiprimes whose factors are decimal palindromes when concatenated, omitting multiples of primes less than 11.

This page as a plain text file.
%I A144719 #6 Sep 12 2020 13:23:51
%S A144719 121,403,1207,1243,1703,2321,2701,3421,3503,3629,4043,4061,4069,4121,
%T A144719 4247,4303,4309,4607,5603,6109,6401,7663,8203,8921,9329,9703,9707,
%U A144719 9943,10001,10021,10187,10201,12223,12283,12709,13129,13801,14921,15007
%N A144719 Semiprimes whose factors are decimal palindromes when concatenated, omitting multiples of primes less than 11.
%C A144719 Presumed infinite.
%H A144719 Harvey P. Dale, <a href="/A144719/b144719.txt">Table of n, a(n) for n = 1..1000</a>
%e A144719 121 = 11 * 11; 1111 is a palindrome.
%e A144719 4309 = 139 * 31; 13931 is a palindrome.
%t A144719 spdpQ[n_]:=Module[{fi=FactorInteger[n][[All,1]]},PrimeOmega[n]==2&&Min[ fi]>10 &&AnyTrue[{FromDigits[Flatten[IntegerDigits/@fi]],FromDigits[ Flatten[ IntegerDigits/@Reverse[fi]]]},PalindromeQ]]; Select[Range[ 15100],spdpQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 12 2020 *)
%Y A144719 Cf. A002113, A116935
%K A144719 base,easy,nonn
%O A144719 1,1
%A A144719 _Reikku Kulon_, Sep 19 2008