A101784 Primes which remain prime after omitting maximal digit.

23, 29, 37, 43, 53, 59, 73, 79, 83, 97, 113, 131, 137, 139, 151, 163, 173, 179, 181, 191, 193, 197, 199, 211, 233, 239, 263, 283, 293, 311, 313, 317, 331, 379, 397, 419, 431, 439, 443, 461, 463, 479, 487, 491, 503, 523, 541, 563, 593, 599, 613, 617, 619, 631

Offset

1,1

Comments

If there are several maximal digits, first from left is omitted.

Links

Table of n, a(n) for n=1..54.

Mathematica

omit[d_, list_] := Module[{aux = {}, len = Length[list]}, Do[If[list[[i]] == d, none, aux = Join[aux, {list[[i]]}]], {i, len}]; aux]; maxomit[n_] := omit[Max[IntegerDigits[Prime[n]]], IntegerDigits[Prime[n]]]; convert[lis_] := Sum[Reverse[lis][[i]] 10^(i - 1), {i, 1, Length[lis]}]; Table[If[PrimeQ[convert[maxomit[n]]], Prime[n], 0], {n, 1, 300}] //Union //Rest [From Jose Grau, Feb 17 2010]

Crossrefs

Sequence in context: A061754 A180066 A353286 * A101802 A363074 A156983

Adjacent sequences: A101781 A101782 A101783 * A101785 A101786 A101787

Keyword

base,easy,nonn

Author

Zak Seidov, Jan 27 2005

Status

approved