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.

A075656 n + product of prime factors of n.

This page as a plain text file.
%I A075656 #8 Feb 27 2021 11:19:36
%S A075656 1,4,6,6,10,12,14,10,12,20,22,18,26,28,30,18,34,24,38,30,42,44,46,30,
%T A075656 30,52,30,42,58,60,62,34,66,68,70,42,74,76,78,50,82,84,86,66,60,92,94,
%U A075656 54,56,60,102,78,106,60,110,70,114,116,118,90,122,124,84,66,130,132
%N A075656 n + product of prime factors of n.
%C A075656 Prime factors taken without multiplicity. - _Harvey P. Dale_, Feb 27 2021
%H A075656 Harvey P. Dale, <a href="/A075656/b075656.txt">Table of n, a(n) for n = 1..1000</a>
%F A075656 a(n)=A073353(n), n>1. [From _R. J. Mathar_, Sep 23 2008]
%e A075656 6 + product of prime factors of 6 = 6 + 2 * 3 = 12, so a(6) = 12.
%t A075656 Flatten[Append[{1}, Table[n + Apply[Times, Transpose[FactorInteger[n]][[1]]], {n, 2, 100}]]]
%t A075656 Join[{1},Table[n+Times@@FactorInteger[n][[All,1]],{n,2,70}]] (* _Harvey P. Dale_, Feb 27 2021 *)
%K A075656 easy,nonn
%O A075656 1,2
%A A075656 _Joseph L. Pe_, Oct 12 2002