OFFSET
1,1
MATHEMATICA
A188550[n_] := Max @ Table[Length @ Select[Table[n-d, {d, Divisors[n-k] // Rest}], Mod[#, k] == 0&], {k, 2, Floor[Sqrt[n]]}]; A188794[n_] := Module[{k=2, a1=A188550[n]}, While[DivisorSum[n-k, 1&, #>1&&Divisible[n-#, k]&] != a1, k++]; k]; s={}; Do[p=Prime[n]; p2=p^2; If[aa[p2]^2 != p2, AppendTo[s, p]], {n, 1, 130}]; s (* Amiram Eldar, Feb 06 2019 after Jean-François Alcover at A188550 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 12 2011
EXTENSIONS
More terms from Amiram Eldar, Feb 06 2019
STATUS
approved