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 A259182 #8 Sep 08 2022 08:46:13
%S A259182 1,3,5,1,11,1,17,1,1,1,31,1,41,1,1,1,59,1,67,1,1,1,83,1,1,1,1,1,109,1,
%T A259182 127,1,1,1,1,1,157,1,1,1,179,1,191,1,1,1,211,1,1,1,1,1,241,1,1,1,1,1,
%U A259182 277,1,283,1,1,1,1,1,331,1,1,1,353,1,367,1,1,1,1
%N A259182 a(n) = prime(n) if n prime otherwise 1.
%C A259182 The subsequence of prime terms is A006450.
%e A259182 a(7) = 17 because prime(7) = 17 is prime.
%e A259182 a(8) = 1 because 8 is not prime.
%t A259182 Table[If[! PrimeQ[n], 1, Prime[n]], {n, 100}]
%o A259182 (Magma) [IsPrime(n) select NthPrime(n) else 1: n in [1..100]];
%Y A259182 Cf. A006450, A007821, A010051, A061397, A191558, A259175.
%K A259182 nonn,easy
%O A259182 1,2
%A A259182 _Vincenzo Librandi_, Jun 20 2015