login
Write primes in base 10 but interpret as if in base 12.
2

%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_