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.
%I A084092 #19 Feb 16 2025 08:32:49
%S A084092 1,2,3,4,5,7,8,9,11,101,121,131,151,181,191,313,343,353,373,383,727,
%T A084092 757,787,797,919,929,1331,10201,10301,10501,10601,11311,11411,12421,
%U A084092 12721,12821,13331,13831,13931,14341,14641,14741,15451,15551,16061,16361
%N A084092 Prime power decimal palindromes.
%H A084092 Harvey P. Dale, <a href="/A084092/b084092.txt">Table of n, a(n) for n = 1..600</a>
%H A084092 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PalindromicPrime.html">Palindromic Prime</a>.
%H A084092 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PrimePower.html">Prime Power</a>.
%e A084092 121=A000961(42)=A002113(21), therefore 121 is a term;
%e A084092 131=A000961(46)=A002113(22), therefore 131 is a term.
%t A084092 Join[{1}, Select[Range[16370], Reverse[x = IntegerDigits[#]] == x && PrimePowerQ[#] &]] (* _Jayanta Basu_, Jun 24 2013 *)
%t A084092 Join[{1},Select[Range[17000],PalindromeQ[#]&&PrimePowerQ[#]&]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 07 2019 *)
%Y A084092 Intersection of A000961 and A002113, union of A002385 and A084093.
%K A084092 nonn,base
%O A084092 1,2
%A A084092 _Reinhard Zumkeller_, May 11 2003
%E A084092 Corrected and extended by _T. D. Noe_, Oct 25 2006