cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A193462 Sum of the distinct prime divisors of n^2+1.

This page as a plain text file.
%I A193462 #17 Oct 18 2013 18:39:38
%S A193462 0,2,5,7,17,15,37,7,18,43,101,63,34,24,197,115,257,36,18,183,401,32,
%T A193462 102,60,577,315,677,80,162,423,70,52,46,116,102,615,1297,144,22,763,
%U A193462 1601,31,358,44,162,1015,102,37,466,1203,102,1303,546,288,2917,108,3137
%N A193462 Sum of the distinct prime divisors of n^2+1.
%H A193462 Harvey P. Dale, <a href="/A193462/b193462.txt">Table of n, a(n) for n = 0..1000</a>
%e A193462 a(7) = 7 because 7^2+1 = 2*5^2 and the sum of the 2 distinct prime divisors {2, 5} is 7.
%p A193462 with(numtheory):for n from 0 to 110 do:x:=factorset(n^2+1):n1:=nops(x):s:=0:for m from 1 to n1 do: s:=s+x[m]:od: printf(`%d, `, s):od:
%t A193462 Join[{0},Table[Total[Transpose[FactorInteger[n^2+1]][[1]]],{n,60}]] (* _Harvey P. Dale_, Oct 18 2013 *)
%Y A193462 Cf. A193432, A193433.
%K A193462 nonn
%O A193462 0,2
%A A193462 _Michel Lagneau_, Jul 28 2011