A018205 Let m=n+1; a(n) is the least positive integer s, not a multiple of m, such that if 1<=d<=m and (d,m)=1, then d divides one of the numbers s-m, s-2m, ..., s-m[ s/m ].

3, 5, 7, 13, 11, 19, 23, 34, 37, 51, 47, 76, 69, 71, 93, 147, 106, 184, 137, 164, 192, 275, 167, 313, 251, 316, 303, 365, 329, 553, 317, 458, 563, 548, 427, 697, 563, 739, 591, 940, 617, 1051, 747, 712, 1003, 1251, 761, 1219

Offset

1,1

Links

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

Prog

(PARI) a(n) = {m = n+1; s = m; while (1, sok = 1; if (s % m, for (d=1, m, if (gcd(d, m) == 1, ndok = 0; for (k=1, floor(s/m), if (((s-k*m) % d) == 0, ndok = 1; break; ); ); ); if (! ndok, sok = 0; break; ); ); if (sok, return(s)); ); s++; ); }  \\ Michel Marcus, Mar 22 2013

Crossrefs

Sequence in context: A111745 A098957 A143245 * A370762 A121047 A152075

Adjacent sequences: A018202 A018203 A018204 * A018206 A018207 A018208

Keyword

nonn

Author

Clark Kimberling

Extensions

More terms from Michel Marcus, Mar 22 2013

Status

approved