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

Author

Alexander Adamchuk, Aug 21 2006

Keywords

• nonn

Crossrefs

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

Programs

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}]

Formula

A122136[ a(n) ] = 1.