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 A076241 #17 Sep 08 2022 08:45:07 %S A076241 0,1,2,1,1,5,3,3,2,9,6,1,10,9,1,1,5,13,8,13,10,5,17,5,9,1,23,27,19,17, %T A076241 27,3,14,15,19,13,31,17,16,31,38,37,35,27,31,21,28,17,12,47,43,43,39, %U A076241 31,26,45,13,1,17,23,17,53,11,15,1,53,10,25,64,41,38,41,68,33,59,63,65 %N A076241 Remainder when 2nd order prime pp(n)=A006450(n) is divided by n. %H A076241 Vincenzo Librandi, <a href="/A076241/b076241.txt">Table of n, a(n) for n = 1..5000</a> %F A076241 a(n) = A006450(n) mod n. %t A076241 Table[Mod[Prime[Prime[n]], n], {n, 100}] (* _Vincenzo Librandi_, Jul 10 2017 *) %o A076241 (PARI) a(n) = prime(prime(n)) % n; \\ _Michel Marcus_, Jul 09 2017 %o A076241 (Magma) [NthPrime(NthPrime(n)) mod(n): n in [1..100]]; // _Vincenzo Librandi_, Jul 10 2017 %Y A076241 Cf. A006450, A038580, A049090, A049203, A049202, A057809, A076240-A076243. %K A076241 nonn %O A076241 1,3 %A A076241 _Labos Elemer_, Oct 08 2002