A078447 Final terms of rows of A078448.

1, 3, 7, 13, 23, 41, 61, 83, 113, 151, 181, 229, 281, 337, 389, 461, 547, 613, 689, 787, 859, 971, 1063, 1193, 1297, 1429, 1553, 1697, 1861, 2003, 2153, 2333, 2477, 2683, 2837, 3041, 3259, 3463, 3671, 3911, 4139, 4409, 4657, 4937, 5189, 5477, 5743, 6011

Offset

1,2

Links

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

Prog

(PARI) {s=[1]; for (n=2, 49, print1(s[n-1], ", "); a=s[n-1]; s=[a+1]; for(j=2, n, k=s[j-1]+1; c=1; while(c>0, b=1; for(i=1, matsize(s)[2], if(gcd(k, s[i])>1, b=0)); if(b==0, k++, c=0)); s=concat(s, k)))}

Crossrefs

Cf. A078448, A078449, A078450.

Sequence in context: A154691 A306902 A227121 * A066624 A317783 A061761

Adjacent sequences: A078444 A078445 A078446 * A078448 A078449 A078450

Keyword

nonn

Author

Amarnath Murthy, Nov 27 2002

Extensions

Edited and extended by Klaus Brockhaus, Dec 10 2002

Status

approved