login
A134641
Prime permutational numbers A134640.
11
2, 5, 7, 11, 19
OFFSET
1,1
COMMENTS
Conjecture: This sequence is finite and complete.
The conjecture is correct: in base 2k permutational numbers are divisible by 2k-1 and in base 2k+1 permutational numbers are divisible by k. Hence it suffices to check bases up to 3. - Charles R Greathouse IV, Dec 14 2015
MATHEMATICA
a = {}; b = {}; Do[AppendTo[b, n]; w =Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; If[PrimeQ[j], AppendTo[a, j]], {m, 1, Length[w]}], {n, 0, 10}]; a (*Artur Jasinski*)
PROG
(PARI) for(b=2, 3, for(i=0, b!-1, p=fromdigits(apply(j->j-1, numtoperm(b, i)), b); if(isprime(p), print1(p", ")))) \\ Charles R Greathouse IV, Dec 14 2015
CROSSREFS
Cf. A134640.
Sequence in context: A247052 A364649 A163695 * A162491 A152216 A045350
KEYWORD
nonn,fini,full
AUTHOR
Artur Jasinski, Nov 05 2007
STATUS
approved