A046812 Number of prime anagrams of A046811(n).

0, 1, 2, 3, 4, 8, 11, 16, 21, 25, 27, 31, 36, 37, 39, 41, 44, 46, 54, 58, 78, 79, 87, 95, 97, 101, 116, 148, 158, 161, 169, 179, 197, 226, 231, 244, 253, 377, 437, 488, 534, 665, 685, 727, 731, 760, 949, 1071, 1148, 1209, 1303, 1431, 1666, 1698, 2283, 2701, 2857

Offset

1,3

Links

Robert Israel, Table of n, a(n) for n = 1..86

Maple

S[1]:= [seq([i], i=1..9)]:
for d from 2 to 7 do S[d]:= map(t -> seq([i, op(t)], i=t[1]..9), S[d-1]) od:
f:= proc(L) local t, i;
  add(`if`(isprime(add(t[i]*10^(i-1), i=1..nops(t))), 1, 0), t=combinat:-permute(L))
end proc:
R:= NULL: m:= -1:
for d from 1 to 7 do
for L in S[d] do
    v:= f(L);
    if v > m then m:= v; R:= R, v; fi
od od:
R; # Robert Israel, Apr 02 2025

Crossrefs

Cf. A046811.

Sequence in context: A102951 A015935 A135909 * A269797 A280195 A286224

Adjacent sequences: A046809 A046810 A046811 * A046813 A046814 A046815

Keyword

nonn,base

Author

David W. Wilson

Status

approved