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
Links
- Robert Israel, Table of n, a(n) for n = 1..86
Crossrefs
Cf. A046811.
Programs
-
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