



13, 19, 31, 43, 61, 67, 73, 79, 97, 103, 109, 127, 139, 157, 163, 181, 193, 199, 211
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Differs from A040047 at the 13th term.  Kevin Buzzard (k.buzzard(AT)imperial.ac.uk), Jun 20 2008


LINKS

Table of n, a(n) for n=1..19.


EXAMPLE

a(4)=43 since the fourth prime in A068949 is 43.


PROG

(PARI) disum(n)= { local(resul) ; resul=0 ; while(n>0, resul += n%10 ; n = (nn%10)/10 ; ) ; return(resul) ; } 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, ", ") ; ) ; ) ; ) ; } A069324(200000000) ;  R. J. Mathar, May 19 2006


CROSSREFS

Cf. A068809, A068949, A068952, A040047.
Sequence in context: A244311 A164333 A182365 * A040047 A163847 A051644
Adjacent sequences: A069321 A069322 A069323 * A069325 A069326 A069327


KEYWORD

more,nonn,base


AUTHOR

Francois Jooste (phukraut(AT)hotmail.com), Mar 15 2002


EXTENSIONS

a(12) from R. J. Mathar, May 19 2006
a(13)a(14) from Kevin Buzzard (k.buzzard(AT)imperial.ac.uk), Jun 20 2008
a(15)a(19) from Giovanni Resta, Jun 27 2018


STATUS

approved



