|
%I #9 Apr 26 2014 13:41:57
%S 309,311,381,799,851,3515,3535,8659,10199,10331,30461,32853,40135,
%T 43255,202099,453931,504415,1365303,2473735,2545039,20506915,27172301,
%U 31496621,150107891,4180621181,23338398423,608602531091
%N Numbers n which equal the sum of the prime factors of n^2+1217*n+370313.
%F {n: A001414(n^2+1217*n+370313)=n}.
%e For n=309, n^2+1217*n+370313= 841847=71*71*167, and 71+71+167=309.
%e For n=311, n^2+1217*n+370313=845521=61*83*167, and 61+83+167=311.
%p A001414 := proc(n) pfs := ifactors(n)[2] ; add(op(1,p)*op(2,p),p=pfs) ; end:
%p 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
%K nonn,less
%O 1,1
%A _Vincenzo Librandi_, Jun 30 2009
%E Edited by _R. J. Mathar_, Jul 26 2009
%E Corrected by _Zak Seidov_, Jul 29 2009
|
