%I #7 Aug 02 2015 21:22:12
%S 2,3,5,7,13,15,19,21,27,33,37,43,49,51,55,63,69,73,79,85,87,93,99,105,
%T 115,145,147,151,153,159,175,181,187,189,201,205,211,219,223,231,237,
%U 241,253,255,259,261,301,315,319,321,327,333,337,349,355
%N Write primes in base 10 but interpret as if in base 12.
%F a(n) = A102487(A000040(n)). - _R. J. Mathar_, Apr 09 2011
%p A102487 := proc(n) local dgs; dgs := convert(n,base,10) ; add(op(d,dgs)*12^(d-1), d=1..nops(dgs)) ; end proc:
%p A031344 := proc(n) A102487(ithprime(n)) ; end proc: # _R. J. Mathar_, Apr 09 2011
%K nonn,base
%O 1,1
%A _Jeff Burch_