OFFSET
1,1
COMMENTS
Conjecture: Sequence is infinite.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[13000], MemberQ[Most[Divisors[#]], (DivisorSigma[1, #]-2*#)/2] && MemberQ[Most[Divisors[#+2]], (DivisorSigma[1, #+2]-2*(#+2))/2]&] (* James C. McMahon, Mar 29 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 09 2005
STATUS
approved