A169911 Primes in carryless digital root arithmetic in base 10.
3, 6, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 64, 65, 67, 68, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87
Offset: 1
Examples
96 has a representation 31*6 and is not in the sequence.
Links
Programs
-
Maple
# carryLmult implemented in A169908 isA169911 := proc(n) local a,b,un ; un := {1,2,4,5,7,8} ; for a from 1 to n do for b from 1 to a do if a in un or b in un then ; else if carryLmult(a,b) = n then return false; end if; end if; end do: end do: if n in un then false ; else true; end if; end proc: e := 1: for n from 1 do if isA169911(n) then printf("%d %d\n",e,n) ; e := e+1 ; end if; end do: # R. J. Mathar, Jul 12 2013
Comments