A122137 Indices n such that A122136[n] = 1, or A024450[n] divides A002110[n].

30, 123, 195, 214, 248, 300, 304, 335, 343, 350, 364, 367, 414, 443, 543, 570, 579, 584, 590, 612, 671, 691, 706, 707, 734, 780, 791, 799, 806, 810, 827, 836, 852, 880, 938, 960, 976, 1015, 1055, 1147, 1168, 1190, 1195, 1199, 1200, 1210, 1230, 1231, 1250

Offset

1,1

Links

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

Formula

A122136[ a(n) ] = 1.

Mathematica

Do[f=Numerator[Sum[Prime[k]^2, {k, 1, n}]/Product[Prime[k], {k, 1, n}]]; If[f==1, Print[n]], {n, 1, 10000}]

Crossrefs

Cf. A024450, A002110, A122136, A122138, A122139.

Sequence in context: A219223 A042766 A042768 * A003901 A010744 A165017

Adjacent sequences: A122134 A122135 A122136 * A122138 A122139 A122140

Keyword

nonn

Author

Alexander Adamchuk, Aug 21 2006

Status

approved