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