login
Initial members of abundant quintuplets, i.e., values of k such that (k, k+2, k+4, k+6, k+8) are all abundant numbers.
8

%I #20 Apr 06 2024 07:57:33

%S 2988,4728,9724,18844,22984,30544,35148,39948,45048,50464,55788,56808,

%T 58056,58780,69184,78048,81948,85744,101148,106144,108256,109248,

%U 117124,134088,139744,139804,152568,171288,174348,175908,182644,189768,197028

%N Initial members of abundant quintuplets, i.e., values of k such that (k, k+2, k+4, k+6, k+8) are all abundant numbers.

%H Amiram Eldar, <a href="/A108926/b108926.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..5000 from Shyam Sunder Gupta)

%t SequencePosition[Table[If[DivisorSigma[1,n]>2n,1,0],{n,200000}],{1,_,1,_,1,_,1,_,1}][[All,1]] (* _Harvey P. Dale_, Mar 06 2022 *)

%o (PARI) is(n)=sigma(n,-1)>2 && sigma(n+2,-1)>2 && sigma(n+4,-1)>2 && sigma(n+6,-1)>2 && sigma(n+8,-1)>2 \\ _Charles R Greathouse IV_, Feb 21 2017

%Y Cf. A005101, A096399, A231086, A231089, A231090, A231092, A231093.

%K nonn

%O 1,1

%A _Jason Earls_, Jul 19 2005