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 A069324 #13 Nov 21 2024 20:17:30
%S A069324 13,19,31,43,61,67,73,79,97,103,109,127,139,157,163,181,193,199,211
%N A069324 Primes in A068949.
%C A069324 Differs from A040047 at the 13th term. - Kevin Buzzard (k.buzzard(AT)imperial.ac.uk), Jun 20 2008
%e A069324 a(4)=43 since the fourth prime in A068949 is 43.
%o A069324 (PARI)
%o A069324 disum(n)= { local(resul) ; resul=0 ; while(n>0, resul += n%10 ; n = (n-n%10)/10 ; ) ; return(resul) ; }
%o A069324 A069324(maxs)= { local(ssqu,su) ; su=1 ; for(s=1,maxs, ssqu=s^2 ; if (disum(ssqu) > su, su=disum(ssqu) ; if( isprime(su), print1(su,",") ; ) ; ) ; ) ; }
%o A069324 A069324(200000000) ; \\ _R. J. Mathar_, May 19 2006
%Y A069324 Cf. A068809, A068949, A068952, A040047.
%K A069324 more,nonn,base
%O A069324 1,1
%A A069324 Francois Jooste (phukraut(AT)hotmail.com), Mar 15 2002
%E A069324 a(12) from _R. J. Mathar_, May 19 2006
%E A069324 a(13)-a(14) from Kevin Buzzard (k.buzzard(AT)imperial.ac.uk), Jun 20 2008
%E A069324 a(15)-a(19) from _Giovanni Resta_, Jun 27 2018