%I #25 Oct 18 2022 01:52:18
%S 5,7,11,17,19,29,31,41,47,59,61,65,67,71,89,97,101,127,137,139,151,
%T 167,170,179,181,199,209,211,227,229,239,251,257,269,271,281,337,347,
%U 367,389,397,409,419,421,431,449,467,479,487,491,509,557,587
%N Numbers k such that sigma(k) + 12 = sigma(k+12).
%H Vincenzo Librandi, <a href="/A015917/b015917.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[600],DivisorSigma[1,#]+12==DivisorSigma[1,#+12]&] (* _Harvey P. Dale_, Oct 14 2012 *)
%o (PARI) is(n)=sigma(n)+12==sigma(n+12) \\ _Charles R Greathouse IV_, Mar 09 2014
%Y Cf. A000203.
%Y Union of A046133 and A054902.
%K nonn
%O 1,1
%A _Robert G. Wilson v_
|