

A247206


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


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



