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 A071251 #14 Mar 13 2025 11:13:28 %S A071251 1,2,3,5,6,7,11,22,33,55,66,77,101,111,131,141,151,161,181,191,202, %T A071251 222,262,282,303,313,323,353,373,383,393,434,454,474,494,505,515,535, %U A071251 545,555,565,595,606,626,646,707,717,727,737,757,767,777,787,797,818,838 %N A071251 Squarefree palindromes. %H A071251 Amiram Eldar, <a href="/A071251/b071251.txt">Table of n, a(n) for n = 1..10000</a> %p A071251 ffpal := proc(n) local i,j,k,s,aa,nn,bb,flag; s := n; aa := convert(s,string); nn := length(aa); bb := ``; for i from nn by -1 to 1 do bb := cat(bb,substring(aa,i..i)); od; flag := 0; for j from 1 to nn do if substring(aa,j..j)<>substring(bb,j..j) then flag := 1 fi; od; RETURN(flag); end: ts_ndk_pal := proc(i) if ffpal((i)) = 0 then if (numtheory[issqrfree](i) = 'true' ) then RETURN((i)) fi fi end: andkpal := [seq(ts_ndk_pal(i), i=1..10000)]: andkpal; %t A071251 Select[ Range[ 1000], # == FromDigits[ Reverse[ IntegerDigits[ # ]]] && Max[ Transpose[ FactorInteger[ # ]] [[2]]] < 2 &] %t A071251 Select[Range[1000],PalindromeQ[#]&&SquareFreeQ[#]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 17 2018 *) %Y A071251 Intersection of A002113 and A005117. %Y A071251 Cf. A002385, A069217, A032350, A035132. %K A071251 base,nonn %O A071251 1,2 %A A071251 _Amarnath Murthy_, May 21 2002 %E A071251 Edited by _Robert G. Wilson v_, Jun 03 2002