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 A072806 #18 Oct 05 2023 17:08:04 %S A072806 10,21,32,43,104,131,142,203,214,241,313,324,401,412,423,1011,1022, %T A072806 1044,1132,1143,1204,1231,1242,1402,1413,1424,2001,2012,2023,2034, %U A072806 2111,2133,2221,2232,2342,2403,2414,3013,3024,3101,3134,3211,3233,3244,3321 %N A072806 Primes of the form 6k+5 written in base 5. %H A072806 Harvey P. Dale, <a href="/A072806/b072806.txt">Table of n, a(n) for n = 1..1000</a> %F A072806 a(n) = A007091(A007528(n)). - _Michel Marcus_, Jul 09 2018 %e A072806 41 = 25 + 3*5 + 1 = 131_5. %t A072806 Do[s=Prime[n]; If[Mod[s, 6]==5, Print[BaseForm[s, 5]]], {n, 1, 256}] %t A072806 FromDigits[IntegerDigits[#, 5]] & /@ Select[Table[6 n + 5, {n, 0, 100}], PrimeQ] (* _Harvey P. Dale_, Oct 05 2023 *) %o A072806 (PARI) lista(nn) = for (n=0, nn, if (isprime(p=6*n+5), print1(fromdigits(digits(p, 5)), ", "))); \\ _Michel Marcus_, Jul 09 2018 %Y A072806 Cf. A007091, A007528. %Y A072806 Cf. A008713, A072803, A072804, A072805, A072807. %K A072806 base,nonn %O A072806 1,1 %A A072806 _Labos Elemer_, Jul 12 2002