login
A122137
Indices n such that A122136[n] = 1, or A024450[n] divides A002110[n].
3
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
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
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 21 2006
STATUS
approved