OFFSET
1,1
COMMENTS
EXAMPLE
MAPLE
MATHEMATICA
rad[n_] := Times @@ FactorInteger[n][[All, 1]];
A055231[n_] := Denominator[n/rad[n]^2];
Select[Range[2000], !SquareFreeQ[#] && A055231[#] == A055231[# + A055231[#]]&] (* Jean-François Alcover, Jun 18 2024 *)
PROG
(PARI) isA013929(n)={
(n>3) && !issquarefree(n)
}
isA207360(n)={
}
{ for(n=1, 1300, if(isA207360(n), print1(n" ") ) ; ) ;
} /* R. J. Mathar, Mar 12 2012 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Feb 17 2012
STATUS
approved