A135015 Numbers n with property that for each single digit d of n, we can also see the decimal expansion of the d-th prime as a substring of n. Also n may not contain any zero digits.

11235, 11253, 11325, 11352, 11523, 11532, 21135, 21153, 23115, 23511, 25113, 25311, 31125, 31152, 32115, 32511, 35112, 35211, 51123, 51132, 52113, 52311, 53112, 53211, 111235, 111253, 111325, 111352, 111523, 111532, 112135, 112153, 112235, 112253

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000 (first 300 terms from David Applegate)

Maple

filter:= proc (n) local L, LP;
  L := convert(n, base, 10);
  if has(L, 0) then return false end if;
if has(L, 1) and not has(L, 2) then return false end if;
if has(L, 2) and not has(L, 3) then return false end if;
if has(L, 3) and not has(L, 5) then return false end if;
if has(L, 4) and not has(L, 7) then return false end if;
LP := [seq([L[i], L[i+1]], i = 1 .. nops(L)-1)];
if has(L, 5) and not member([1, 1], LP) then return false end if;
if has(L, 6) and not member([3, 1], LP) then return false end if;
if has(L, 7) and not member([7, 1], LP) then return false end if;
if has(L, 8) and not member([9, 1], LP) then return false end if;
if has(L, 9) and not member([3, 2], LP) then return false end if;
true
end proc:
select(filter, [$1..1.5*10^5]);

Prog

(C++) // For C++ program see the Applegate link in A135463.

Crossrefs

Cf. A134692, A134698, A134962.

Sequence in context: A271582 A185797 A256355 * A104316 A237171 A246248

Adjacent sequences: A135012 A135013 A135014 * A135016 A135017 A135018

Keyword

nonn,base,look

Author

David Applegate and N. J. A. Sloane, Feb 10 2008

Status

approved