A247206 a(n) = round(prime(n)/A245085(n)).

1, 1, 4, 2, 3, 5, 3, 6, 3, 3, 7, 4, 5, 5, 15, 4, 10, 9, 10, 6, 5, 10, 5, 8, 6, 12, 11, 11, 6, 12, 12, 8, 9, 9, 9, 8, 11, 12, 6, 14, 7, 5, 25, 15, 7, 10, 14, 38, 10, 16, 11, 9, 12, 18, 10, 17, 7, 12, 9, 12, 38, 16, 17, 16, 10, 13, 35, 10, 25, 72, 13, 29, 20, 8

Offset

3,3

Comments

Does every positive integer occur at least once? Does every positive integer occur only finitely often?

Links

Peter J. C. Moses, Table of n, a(n) for n = 3..2002

Mathematica

Table[ans={};
Round[Prime[n]/(NestWhile[#+1&, 2, (AppendTo[ans, Mod[#!, Prime[n]]]; (Length[ans]<Prime[n]-1)&&(Max[Last[Transpose[Tally[ans]]]]==1))&]-1)], {n, 3, 50}] (* Peter J. C. Moses, Nov 26 2014 *)

Crossrefs

Cf. A000040, A247190, A245085.

Sequence in context: A316257 A274791 A200024 * A228047 A188543 A182272

Adjacent sequences: A247203 A247204 A247205 * A247207 A247208 A247209

Keyword

nonn

Author

Vladimir Shevelev, Nov 25 2014

Extensions

More terms from Peter J. C. Moses, Nov 25 2014

Status

approved