login
Terms of A061047 ending in 0.
1

%I #8 Jul 23 2024 14:47:33

%S 0,120,240,480,680,1040,1320,1800,2160,2760,3200,80,4440,5280,120,

%T 6840,7520,8600,9360,10560,11400,12720,13640,15080,16080,360,18720,

%U 20400,440,23360,24600,26520,27840,29880,31280,33440,34920,37200,38760,120

%N Terms of A061047 ending in 0.

%F a(n) = 40*A146952(n). - _Andrew Howroyd_, Jan 03 2020

%t Select[Table[Numerator[1/49-1/n^2],{n,7,250}],Mod[#,10]==0&] (* _Harvey P. Dale_, Jul 23 2024 *)

%o (PARI) seq(n)={my(L=List(), k=5); while(#L<n, k++; my(t=numerator(1/49 - 1/k^2)); if(t%10==0, listput(L,t))); Vec(L)} \\ _Andrew Howroyd_, Jan 03 2020

%Y Cf. A061047, A146952.

%K nonn,base,less

%O 1,2

%A _Paul Curtz_, Nov 03 2008

%E Offset corrected and terms a(11) and beyond from _Andrew Howroyd_, Jan 03 2020