cp's OEIS Frontend

A309488 Primes whose decimal expansion is of the form d_1+0+d_2+0+d_3+0+...+0+d_k where d_i are digits with 1 <= d_i <= 9, k > 1 and + stands for concatenation.

%I A309488 #39 Sep 08 2022 08:46:21
%S A309488 101,103,107,109,307,401,409,503,509,601,607,701,709,809,907,10103,
%T A309488 10301,10303,10501,10601,10607,10709,10903,10909,20101,20107,20201,
%U A309488 20407,20507,20509,20707,20807,20809,20903,30103,30109,30203,30307,30403,30509,30703,30707,30803,30809
%N A309488 Primes whose decimal expansion is of the form d_1+0+d_2+0+d_3+0+...+0+d_k where d_i are digits with 1 <= d_i <= 9,  k > 1 and + stands for concatenation.
%C A309488 The terms of this sequence have necessarily an odd number >= 3 of digits.
%C A309488 There is only one term whose digits > 0 are all equal: 101.
%C A309488 The only cyclops primes (A134809) of this sequence are the first 15 terms from 101 to 907.
%C A309488 The first palindromes of this sequence are 101, 10301, 10501, 10601, 30103, 30203, 30403, 30703, 30803, ...
%C A309488 Intersection with A309101 = {503, 10103, 10303, 10903, ...}.
%e A309488 103 is the smallest term with two distinct digits > 0.
%e A309488 10607 is the smallest term with three distinct digits > 0.
%t A309488 aQ[n_] := PrimeQ[n] && OddQ[(m = Length[(d = IntegerDigits[n])])] && Flatten@Position[d, _?(# == 0 &)] == Range[2, m, 2]; Select[Range[100, 31000], aQ] (* _Amiram Eldar_, Aug 04 2019 *)
%o A309488 (Magma) sol:=[]; m:=1; for p in PrimesInInterval(101,50000) do  v:=Reverse(Intseq(p)); test:=0; for u in [1..#v-1] do if u mod 2 eq 0 and v[u] eq 0 and v[u+1] ne 0 then test:=test+1; end if; end for; if test eq (#v-1)/2 then sol[m]:=p; m:=m+1; end if; end for; sol; // _Marius A. Burtea_, Aug 04 2019
%o A309488 (PARI) eva(n) = subst(Pol(n), x, 10)
%o A309488 f(n) = my(d=digits(n)); eva(vector(2*#d-1, k, if (k%2, d[1+k\2]))) \\ from _Michel Marcus_
%o A309488 terms(n) = my(i=0); for(k=10, oo, if(i>=n, break); if(vecmin(digits(k)) > 0, my(iz=f(k)); if(ispseudoprime(iz), print1(iz, ", "); i++)))
%o A309488 /* Print initial 40 terms as follows: */
%o A309488 terms(40) \\ _Felix Fröhlich_, Aug 08 2019
%Y A309488 Cf. A000040, A002385, A134809, A309101.
%Y A309488 Subsequence of A059168 (undulating primes).
%K A309488 nonn,base
%O A309488 1,1
%A A309488 _Bernard Schott_, Aug 04 2019