OFFSET
1,1
COMMENTS
This sequence gives all arguments for which A067599 is prime: A067599(a(n)) = prime. - Wolfdieter Lang, Aug 16 2014
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..1000
FORMULA
Sequence of the members of the set {k >= 2: A067599(k) is a prime} in increasing order. - Wolfdieter Lang, Aug 16 2014
EXAMPLE
MAPLE
with(numtheory); P:=proc(q) local a, b, c, d, k, j, n;
for n from 1 to q do a:=(ifactors(n)[2]); b:=[];
for k from 1 to nops(a) do b:=[op(b), a[k, 1]]; od; b:=sort(b); c:=0;
for k from 1 to nops(b) do d:=1; while b[k]<>a[d, 1] do d:=d+1; od;
j:=b[k]*10^(ilog10(a[d, 2])+1)+a[d, 2];
c:=c*10^(ilog10(j)+1)+j; od; if isprime(c) then print(n);
fi; od; end: P(1000);
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Paolo P. Lava, Aug 07 2014
EXTENSIONS
Edited: Name n-> a(n), cf. A067599, examples specified. - Wolfdieter Lang, Aug 16 2014
STATUS
approved