login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A134766 Primes among variant of permutational numbers A134750. 2

%I

%S 5,139,163,193,199,241,283,313,1019,1319,1367,1523,1759,2179,2251,

%T 2539,2767,2803,2851,2927,3011,3163,3167,3191,3319,3323,3347,3491,

%U 3539,3547,3559,3571,3607,3691,11261,11471,11801,11831,12281,12641,13121,13721

%N Primes among variant of permutational numbers A134750.

%C For indices where primes occured in A134750 see A134767

%t k = {}; a = {}; b = {}; Do[AppendTo[b, n]; w = Permutations[b]; Do[j = FromDigits[1 + w[[m]], n + 1]; AppendTo[a, j], {m, 1, Length[w]}], {n, 0, 6}]; Do[If[PrimeQ[a[[n]]], AppendTo[k, a[[n]]]], {n, 1, Length[a]}]; k

%Y Cf. A134640, A134641, A134750.

%K nonn

%O 1,1

%A _Artur Jasinski_, Nov 10 2007

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 27 04:07 EDT 2021. Contains 346303 sequences. (Running on oeis4.)