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.
%I A347158 #4 Aug 20 2021 22:52:29
%S A347158 0,0,0,0,0,16,0,16,0,16,0,97,0,16,81,16,0,97,0,16,81,16,0,97,0,16,81,
%T A347158 16,0,722,0,16,81,16,625,97,0,16,81,641,0,97,0,16,706,16,0,97,0,641,
%U A347158 81,16,0,97,625,2417,81,16,0,722,0,16,2482,16,625,97,0,16,81,3042
%N A347158 Sum of 4th powers of distinct prime divisors of n that are < sqrt(n).
%F A347158 G.f.: Sum_{k>=1} prime(k)^4 * x^(prime(k)*(prime(k) + 1)) / (1 - x^prime(k)).
%t A347158 Table[DivisorSum[n, #^4 &, # < Sqrt[n] && PrimeQ[#] &], {n, 1, 70}]
%t A347158 nmax = 70; CoefficientList[Series[Sum[Prime[k]^4 x^(Prime[k] (Prime[k] + 1))/(1 - x^Prime[k]), {k, 1, nmax}], {x, 0, nmax}], x] // Rest
%Y A347158 Cf. A001159, A005065, A005068, A333806, A333808, A347142, A347156, A347157.
%K A347158 nonn
%O A347158 1,6
%A A347158 _Ilya Gutkovskiy_, Aug 20 2021