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 A247980 #8 Oct 02 2014 22:57:16
%S A247980 2,3,5,7,13,17,19,43,67,83,163,167,313,433,883,887,1667,5167,5477,
%T A247980 6833,8167,17317,22133,59833,70583,89417,141067,160583,191833,298327,
%U A247980 882433,1728583,2447437,3143087,3143167,4468333,12957083,13747687,26457133
%N A247980 Least prime whose square contributes to A234429.
%C A247980 Listed lexicographically and not in the order defined by A234429. See examples.
%H A247980 Robert G. Wilson v, <a href="/A247980/b247980.txt">Table of n, a(n) for n = 1..54</a>
%e A247980 2^2 = 4 = A234429(1),
%e A247980 3^2 = 9 = A234429(3),
%e A247980 5^2 = 25 -> 7 = A234429(2),
%e A247980 7^2 = 49 -> 13 = A234429(5),
%e A247980 19^2 = 361 -> 10 = A234429(4), etc.
%t A247980 p = 2; lst = lsu = {}; While[p < 15250000001, ds = Total@ IntegerDigits[p^2]; If[ !MemberQ[lst, ds], AppendTo[lst, ds]; AppendTo[lsu, p]; Print[ p]]; p = NextPrime@ p]; lsu
%Y A247980 Cf. A234429.
%K A247980 nonn
%O A247980 1,1
%A A247980 _Robert G. Wilson v_, Sep 28 2014