OFFSET
1,1
FORMULA
{n: A001414(n^2+1217*n+370313)=n}.
EXAMPLE
For n=309, n^2+1217*n+370313= 841847=71*71*167, and 71+71+167=309.
For n=311, n^2+1217*n+370313=845521=61*83*167, and 61+83+167=311.
MAPLE
A001414 := proc(n) pfs := ifactors(n)[2] ; add(op(1, p)*op(2, p), p=pfs) ; end:
for n from 0 do p := n^2+1217*n+370313; if A001414(p) = n then printf("%d, \n", n) ; fi; od: # R. J. Mathar, Jul 26 2009
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Vincenzo Librandi, Jun 30 2009
EXTENSIONS
Edited by R. J. Mathar, Jul 26 2009
Corrected by Zak Seidov, Jul 29 2009
STATUS
approved