%I #12 Jun 07 2014 10:01:07
%S 11,13,31,101,103,307,701,1009,9001,10007,70001,100003,300007,700001,
%T 1000003,3000017,7000003,30000001,100000007,700000001,1000000007,
%U 7000000001,10000000019,90000000019,90000000023,300000000077
%N Start with the prime 11; next prime must exceed previous prime and start with last digit of previous prime.
%H C. Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_045.htm">Puzzle 45 - Prime Solitaire</a>
%o (PARI) nxtprm(fp) = {fd = digits(fp); ld = fd[#fd]; forprime(p = fp+1,,nd = digits(p); if ((nd[1] == ld) , return (p)));}
%o lista(nn) = {fp = 1; for (n=1, nn, np = nxtprm(fp); print1(np, ", "); fp = np;);}
%Y Cf. A053649 (similar sequence without 0 digits).
%K easy,nonn,base
%O 0,1
%A _Patrick De Geest_, Feb 15 2000
|