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 A174624 #13 Sep 01 2023 20:17:15
%S A174624 0,0,1,0,1,1,0,1,1,3,0,1,1,3,1,0,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,3,1,3,
%T A174624 1,3,0,1,1,3,1,3,1,7,3,0,1,1,1,1,1,1,5,1,1,0,1,1,3,1,3,1,7,3,3,1,0,1,
%U A174624 1,1,1,1,1,5,1,1,1,5,0,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,3,1,3,1,3,3,3,1,3,1,3,0,1,1,3,1,3,1,7,3,3,1,7,1,3,3
%N A174624 Triangle read by rows: T(n,k) = prime(n) mod 2^Omega(k), where Omega() is the number of prime divisors (counted with multiplicity).
%H A174624 Harvey P. Dale, <a href="/A174624/b174624.txt">Table of n, a(n) for n = 1..1000</a>
%e A174624 Triangle begins:
%e A174624 0;
%e A174624 0, 1;
%e A174624 0, 1, 1;
%e A174624 0, 1, 1, 3;
%e A174624 0, 1, 1, 3, 1;
%e A174624 0, 1, 1, 1, 1, 1;
%p A174624 A174624 := proc(n,k) ithprime(n) mod (2^numtheory[bigomega](k)) ; end proc:
%p A174624 seq(seq(A174624(n,k),k=1..n),n=1..15) ; # _R. J. Mathar_, Nov 30 2010
%t A174624 Table[Mod[Prime[n],2^PrimeOmega[k]],{n,20},{k,n}]//Flatten (* _Harvey P. Dale_, Jun 02 2016 *)
%Y A174624 Cf. A001222, A174793.
%K A174624 nonn,tabl
%O A174624 1,10
%A A174624 _Juri-Stepan Gerasimov_, Nov 29 2010