OFFSET
1,1
COMMENTS
Squarefree integers m such that p|m implies 2+p|2+m are in A029562.
No element in the sequence is divisible by 4.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..50
EXAMPLE
44770 = 2*5*37*11^2 is in the list because 44772 is divisible by 4, 7, 39, 13 and 123.
27354103 = 151*3697*7^2 is in the list because 27354105 is divisible by 153, 3699, 9 and 51.
MATHEMATICA
PPDivs[m_Integer]:=Module[{f=FactorInteger[m]}, Flatten[Table[First[f[[i]]]^Range[Last[f[[i]]]], {i, 1, Length[f]}]]]; Select[Select[ Range[1000000], !SquareFreeQ[#]&], Union[ Mod[#+2, 2+PPDivs[#] ] ]== {0} &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Emmanuel Vantieghem, Jul 29 2013
STATUS
approved