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 A241246 #7 Apr 18 2014 18:57:50
%S A241246 13,19,139,313,433,571,883,1489,3547,10513,11779,14389,20011,25939,
%T A241246 27763,30181,32353,42649,44617,45289,46309,47353,48787,55411,65269,
%U A241246 65713,96331,111577,120763,129967,151717,157219,201997,216091,281947,292549,322537,339121,373987,397489,420349,432961,460417,475417,478531,506563,582433,591739,599479,753229,778357,857821,861139,887947,968419,1037089,1062361,1213651,1246249
%N A241246 Primes p such that the decimal expansion of its base 7 expansion converted to decimal is a square.
%C A241246 No terms are 0, 2, or 3 mod 7. - _Charles R Greathouse IV_, Apr 18 2014
%H A241246 Charles R Greathouse IV, <a href="/A241246/b241246.txt">Table of n, a(n) for n = 1..10000</a>
%e A241246 {13,19,139,313,433,571,883,1489,3547,10513,11779}_10 =
%e A241246 {16,25,256,625,1156,1444,2401,4225,13225,42436,46225}_7 =
%e A241246 {4,5,16,25,34,38,49,65,115,206,215}^2_10.
%o A241246 (PARI) is(n)=issquare(subst(Pol(digits(n,7)),'x,10)) && isprime(n) \\ _Charles R Greathouse IV_, Apr 18 2014
%o A241246 (PARI) for(n=4,1e3,if(vecmax(v=digits(n^2))<7 && isprime(p= subst(Pol(v), 'x, 7)), print1(p", "))) \\ _Charles R Greathouse IV_, Apr 18 2014
%Y A241246 Cf. A090710, A065725.
%K A241246 nonn,base
%O A241246 1,1
%A A241246 _Zak Seidov_, Apr 18 2014