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

%I #2 Mar 31 2012 13:20:28

%S 30,123,195,214,248,300,304,335,343,350,364,367,414,443,543,570,579,

%T 584,590,612,671,691,706,707,734,780,791,799,806,810,827,836,852,880,

%U 938,960,976,1015,1055,1147,1168,1190,1195,1199,1200,1210,1230,1231,1250

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

%F A122136[ a(n) ] = 1.

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

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

%K nonn

%O 1,1

%A _Alexander Adamchuk_, Aug 21 2006